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OPTIMAL  APPLICATION  OF  MORRISON'S  ITERATIVE 


NOISE  REMOVAL  FOR  DECONVOLUTION 
Theses  and  Research  Papers 

Much  of  the  research  done  in  connection  with  this 
grant  has  been  carried  out  by  graduate  students  who  have 
written  Master's  theses  summarizing  their  results.  These 
Master's  theses  are  included  as  Appendices  to  this  report, 
and  will  be  referred  to  in  the  discussion.  Since  they  are 
quite  large,  they  are  bound  separately  as  three  theses  in 
four  volumes: 

Appendix  A:  James  H.  Leclere,  Optimum  Use  of  Morrison's 

Iterative  Method  of  Noise  Removal  for  Deconvolution 
Appendix  B:  Aed  M.  El-saba,  Effect  of  Input  on  Optimization 

of  Morrison's  Iterative  Noise  Removal  for  Deconvolution 
Appendix  C,  Parts  1 and  2:  Abolfazl  M.  Amini,  Optimization 

of  Convergent  Iterative  Noise  Removal  and  Deconvolution  and 
an  Evaluation  of  Phase -Shift  Migration. 

Much  of  the  grant  work  has  been  summarized  in  Semi- 
Annual  Status  Reports  submitted  at  six  month  intervals  over 
the  grant  period.  Research  papers  related  to  the  grant  have 
also  been  given  in  those  reports.  Those  papers  are  included 
as  Appendix  D at  the  end  of  this  document,  as  well  as  more 
recent  papers  which  have  not  been  reported  in  any  of  the 
Status  Reports.  A list  of  these  papers  is  given  at  the 
beginning  of  Appendix  D.  In  addition  to  the  theses 
suppported  and/or  directly  a part  of  the  grant  research,  two 
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additional  theses  have  been  supervised  by  the  Principal 
Investigators  which  are  related  to  the  subject  of  the  grant. 
Title  pages  and  abstracts  of  these  theses  appear  in  Appendix 
E. 


Summary  of  Grant  Research 

In  1963  Morrison  proposed  an  iterative  technique  of 
noise  removal  for  deconvolution.  The  method  has  been  applied 
to  several  data  types.  In  1967,  1968,  and  1976,  Ioup  and 

Thomas  and  Ioup  applied  the  method  and  proposed  modifications 
to  its  use.  Until  the  early  1980' s,  however,  and  the  work  of 
Wright  (1980),  Wright  and  Ioup  (1981),  and  Ioup  and  Ioup 
(1981) , the  optimum  use  of  the  method  was  not  known,  and  the 
number  of  iterations  applied  only  approximated  optimum  use. 
Beginning  in  1983  and  continuing  with  the  research  in  this 
grant,  a systemmatic  study  of  the  optimum  use  of  the  method 
was  made,  as  well  as  the  related  van  Cittert  iterative 
deconvolution  and  the  always -convergent  iterative  techniques 
of  noise  removal  and  deconvolution  of  Ioup  (1981)  . The 
results  of  the  systemmatic  study  of  Morrison's  method  are 
given  in  the  thesis  of  Leclere  (1984),  which  is  included  as 
Appendix  A of  this  report.  This  thesis  includes  an 
investigation  of  the  accuracy  and  reliability  of  inverse 
filtering.  It  employs  both  the  LI  and  L2  norms  for  the 
optimization.  It  includes  both  Gaussian  noise  with  a 
constant  standard  deviation  and  Gaussian  noise  with  an 
ordinate  - dependent  standard  deviation.  Since  the 

optimizations  are  done  statistically,  the  results  are 
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reported  statistically,  with  means  and  standard  deviations 
for  optimum  number  of  iterations  and  resulting  mean  squared 
error.  These  are  given  for  Morrison  noise  removal  alone  and 
for  Morrison  noise  removal  combined  with  direct  inverse 
filtering.  The  results  have  been  reported  by  Leclere  et  al. 
(1985) . 

During  and  after  completion  of  the  thesis,  Mr. 
Leclere  investigated  several  related  topics  as  a Research 
Associate.  The  first  was  a combination  of  constant  and 
ordinate -dependent  noise.  It  was  found  that  the  results  fall 
between  those  of  the  constant  and  ordinate -dependent  noise 
separately.  He  also  made  a thorough  investigation  of  another 
method  of  noise  removal,  proposed  by  Morrison  in  1963,  of 
truncating  the  transform  so  that  it  does  not  exceed  the 
response  function  transform  if  both  are  normalized  to  the 
same  value  at  zero  frequency.  Ioup  (1968)  has  shown  that 
this  procedure  is  strictly  justified  only  for  non-negative 
data.  For  almost  all  cases,  the  iterative  approach  was  found 
to  be  more  effective  than  the  truncation  used  alone.  When 
the  truncation  was  used  with  the  iterative  approach,  it  often 
gave  improvement  but  not  always  enough  improvement  to  justify 
its  application. 

Another  question  investigated  by  Mr.  Leclere  was  the 
effect  of  substituting  point- success ive  for  point- 
simultaneous  iterations.  The  latter  is  the  natural  outgrowth 
of  the  initial  formulation  of  the  iterative  method.  For  it, 
each  iteration  is  complete  before  the  data  array  is  updated 
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for  the  new  iteration.  In  the  point- successive  technique, 
new  data  values  are  inserted  into  the  array  as  they  are 
calculated.  This  means  that  the  point-successive  technique 
should  converge  with  fewer  iterations.  By  doing  the  same 
statistical  study  for  the  point-successive  technique,  the 
savings  in  iterations  have  been  shown,  as  well  as  the  slight 
sacrifice  in  mean  squared  error  values,  which  are  so  small  as 
to  suggest  for  the  cases  studied  that  the  point- successive 
technique  should  be  the  one  of  choice. 

Mr.  Leclere  also  tested  asymmetric  Gaussian  impulse 
response  functions  to  examine  the  effect  of  the  lack  of 
symmetry  on  the  optimization  procedure.  An  asymmetric 
reponse  function  was  constructed  of  two  half  Gaussians,  each 
of  different  width.  The  results  of  this  study  were  quite 
interesting.  The  amount  of  noise  removal  accomplished  for 
deconvolution  and  the  quality  of  the  deconvolution  were 
determiend  primarily  by  the  high-frequency  behavior  of  the 
transform,  and  this  was  determiend  mainly  by  the  narrow 
Gaussian  side.  The  number  of  iterations  required,  however, 
was  much  greater  than  either  the  wide  or  the  narrow  Gaussian. 
This  requirement  can  be  understood  from  the  convergence 
properties  of  the  iterative  method  and  its  dependence  on  the 
imaginary  component  of  the  impulse  response  transfer 
function.  The  convergence  properties  are  being  discussed  in 
a publication  now  in  preparation.  In  the  same  publication  we 
will  show  that  the  optimization  of  Morrison's  iterative  noise 
removal  prior  to  direct  inverse  filtering  is  equivalent  to 
optimizing  the  unconstrained  van  Cittert  iterative 
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deconvolution  applied  without  noise  removal.  This  aspect  is 
discussed  in  Mr.  Leclere's  thesis,  Appendix  A.  In  later 
optimization  studies  of  van  Cittert  iterative  deconvolution 
used  alone,  Mr.  Leclere  has  shown  the  equivalence  to  hold  in 
practice . 

In  theory  the  convolution  performed  at  each 
iteration  of  the  iterative  noise  removal  expands  the  length 
of  the  data.  If  the  expansion  is  included  in  the  procedure, 
it  causes  an  unnecessary  waste  of  computer  resources. 
However,  some  expansion  of  the  data  is  known  to  be  necessary 
to  reduce  adverse  edge  effects.  For  all  the  previously 
reported  results  only  one  expansion  of  the  data  has  been 
allowed.  Mr.  Leclere  has  tested  two,  three,  and  four 
expansions,  and  shown  that  the  second  expansion  has  a slight 
effect  on  the  results,  while  the  higher  order  expansions  have 
negligible  effects.  These  results  are  related  to  the 
wraparound  studies  to  be  discussed. 

The  initial  noise  generation  methods  have  been  based 
on  a folded  Gaussian  noise  distribution.  The  folding  was 
necessary  to  guarantee  non-negative  data,  which  are  the  type 
of  data  under  investigation.  In  order  to  learn  the 
sensitivity  of  the  methods  to  the  assumed  form  of  the  noise 
distribution,  we  have  substituted  a number  of  additional 
constant  and  ordinate -dependent  noise  probability  density 
functions  in  place  of  the  folded  Gaussian.  The  optimum 
number  of  iterations  is  not  very  sensitive  to  the  probability 
density  function  assumed.  In  fact,  the  curves  of  the  mean 
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optimum  iteration  number  versus  signal- to-noise  ratio  for 
each  of  the  constant  noise  types  were  very  similar,  and  the 
same  was  true  for  all  the  curves  of  the  ordinate -dependent 
noise  types.  Even  the  separation  between  the  curves  of 
constant  and  ordinate -dependent  noise  types  is  not  very 
large.  This  means  our  initial  premise,  that  one  could 

determine  the  optimum  iteration  number  based  only  on  the 
signal-to-noise  ratio  to  characterize  the  noise,  is  probably 
true.  This  result  greatly  increases  the  utility  of  the 
method,  since  it  appears  that  in  addition  to  knowing  the 
signal-to-noise  ratio,  at  most  one  need  only  know 
the  mix  of  ordinate -dependent  and  constant  noise  to  determine 
the  optimum  iteration  number.  Not  even  details  of  the 
probability  density  function  for  the  noise  need  be  known,  let 
alone  a complete  knowledge  of  the  autocorrelation  of  the 
noise,  such  as  is  needed  for  the  ordinary  least- squares 
approach. 

The  thesis  of  Mr.  Aed  El-saba,  Appendix  B,  reports 
the  results  of  using  a very  different  input  function  from 
that  used  in  the  studies  of  Mr.  Leclere.  It  is  clear  from 
his  work  that  when  a very  different  input  is  used,  the 
optimum  iteration  number  is  affected.  Therefore  in 
optimizing  the  method  for  a given  instrument,  consideration 
must  be  given  to  the  input  as  well  as  the  impulse  response  of 
the  ins  trument . 

The  first  simultaneous  optimization  of  iterative 
noise  removal  and  iterative  deconvolution  was  accomplished  by 
Mr.  Abolfazl  Amini,  and  is  reported  in  his  thesis,  Appendix 
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C,  Parts  1 and  2.  The  success  was  possible  in  part  because 
the  computational  facilities  available  at  the  University  of 
New  Orleans  were  upgraded  to  include  a VAX  Cluster  consisting 
of  four  VAX  8600' s.  Instead  of  the  Morrison  and  van  Cittert 
iterations,  Mr.  Amini  used  the  related  always -convergent 
technique  of  Ioup  (1981),  which  does  not  suffer  the 
convergence  limitations  of  the  prior  methods.  Not  only  is  it 
possible  from  the  results  of  Mr.  Amini' s work  to  determine 
the  optimum  iteration  number  for  simultaneous  use  of  the 
iterative  technique  for  noise  removal  and  deconvolution,  but 
it  is  also  possible  for  the  first  time  to  know  for  which 
signal- to -noise  ratios  it  is  efficacious  to  use  iterative 
noise  removal  prior  to  iterative  deconvolution,  and  for  which 
it  is  not.  The  methodology  is  now  in  place  to  establish  the 
results  for  any  instrument.  Complete  details  may  be  found  in 
Appendix  C.  Results  for  seismic  data  (not  grant  supported 
work,  but  grant  related)  have  been  presented  by  Amini  et  al. 
(1986)  and  Amini  et  al.  (1987a).  Results  for  aerospace  data 
will  be  given  by  Amini  et  al.  (1988). 

Mr.  Leclere  then  applied  the  same  techniques  to 
optimize  simultaneously  the  Morrison  noise  removal  and  van 
Cittert  deconvolution  iterations  which  are  convergent  for  the 
Gaussian  response  functions  employed  in  the  grant  research. 
The  results  of  his  work  will  be  presented  by  Leclere  et  al. 
(1988) . 

All  the  work  described  thus  far  has  been  done  with  a 
wide  and  a narrow  Gaussian  used  for  the  impulse  response 
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function  except  that  which  considered  an  asymmetric  Gaussian. 
Mr.  Leclere  and  Mr.  Amini  went  on  to  include  a sequence  of 
Gaussian  widths  from  narrow  to  wide  in  their  respective 
simulations.  Mr.  Leclere 's  simulations  were  done  with  the 
Morrison  and  van  Cittert  iterations,  while  Mr.  Amini' s were 
with  the  always  - convergent  iterations.  With  these 
calculations  accomplished  three-dimensional  surface  plots  are 
possible.  An  example  is  a surface  describing  the  variation 
of  the  mean  squared  error  with  the  independent  variables  of 
s ignal - to -noise  ratio  and  Gaussian  width.  These  surfaces  can 
be  extremely  useful  in  understanding  the  effects  of 
deconvolution  for  a given  instrument.  A number  of  these 
surfaces  have  been  generated  and  will  be  reported  by  Amini  et 
al.  (1988)  and  Ioup  et  al.  (1988).  In  the  last  Status  Report 
submitted  for  this  grant  a claim  was  made  that  these  surfaces 
could  be  used  to  optimize  the  output  for  an  instrument  after 
deconvolution  if  the  relation  of  signal- to -noise  ratio  to 
resolution  of  the  instrument  was  known.  Ioup  et  al . 
(1983/84)  suggested  that  the  optimum  operating  instrumental 
parameters  might  not  be  those  giving  the  highest  resolution 
if  deconvolution  is  to  be  used.  Because  it  was  felt  to  be  a 
fruitful  area  of  research,  a proposal  was ' submitted  to  NASA, 
titled  "Determination  of  Design  and  Operation  Parameters  for 
Upper  Atmospheric  Research  Instrumentation  to  Yield  Optimum 
Resolution  with  Deconvolution.”  This  proposal  has  been 
funded  and  research  is  continuing  in  this  direction. 
Preliminary  results  of  the  study  will  be  presented  by  Ioup  et 
al.  (1988). 
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The  work  of  Mr.  William  S.  Kamminga  has  been 
summarized  in  the  most  recent  Status  Report  for  the  grant. 
The  abstract  of  his  thesis,  "Gibbs  Oscillations  for  Three 
Point  Sources,"  is  given  in  Appendix  E,  and  a copy  of  the 
complete  thesis  has  been  given  to  the  Technical  Monitor. 

One  of  the  subject  areas  of  study  discussed  in  the 
grant  proposal  was  the  application  of  iterative  deconvolution 
as  a single  window  in  the  transform  domain.  Although  such  an 
application  must  be  modified  for  the  inclusion  of  function- 


domain  constraints,  it  offers  a major  advantage  in  terms  of 
speed.  The  thesis  of  Mr.  Mark  Whitehorn  (1981)  contains  the 
first  one-shot  filter  study.  The  important  question  to  be 
investigated  in  this  grant  proposal  was  the  effect  of 
wraparound  due  to  the  telescoping  of  many  iterations  into 
one.  The  first  investigation  of  wraparound  was  accomplished 
by  Mr.  Tahar  Bensueid.  His  preliminary  results  seem  to 
indicate  that  when  no  noise  was  present,  wraparound  error  was 
negligible  for  all  response  function  considered.  Mr.  Amini 
then  performed  a systemmatic  study  of  the  wraparound  effect 
including  noise  over  a whole  domain  of  signal- to -noise  ratios 
for  seismic  data.  His  work  confirmed  the  findings  of  Mr. 
Bensueid  and  were  reported  by  Amini  et  al.  (1987b).  The 
investigation  of  this  effect  for  upper  atmospheric  research 
data  has  been  the  subject  of  the  thesis  work  of  Mr.  Haihong 
Ni.  Mr.  Ni's  thesis  is  not  yet  complete,  but  a copy  of  it 
will  be  given  to  the  Technical  Monitor  when  it  is  finished. 
His  work  is  being  reported  by  Ni  et  al.  (1988).  A side 
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benefit  of  this  research  has  been  the  availability  of  a fast 
method  for  optimization  of  the  iterative  techniques  for 
impulse  responses  of  low  resolution,  which  require  many 
iterations.  That  research  will  also  be  reported  in  Mr.  Ni's 
thesis . 

Although  the  application  of  the  optimization  studies 
to  data  which  go  positive  and  negative  is  not  the  subject  of 
the  grant,  investigation  of  iterative  deconvolution  and  noise 
removal  for  such  data  can  nevertheless  be  revealing  when 
contrasted  to  the  results  for  nonnegative  data  and  response 
functions.  Mr.  Edward  J.  Murphy  has  worked  with  oscillatory 
type  data  and  has  completed  a thesis,  "Always -Convergent 
Iterative  Deconvolution  for  Acoustic  Non- Destructive 
Evaluation."  The  abstract  of  his  thesis  appears  in  Appendix 
E,  and  a copy  of  his  complete  thesis  has  been  given  to  the 
Technical  Monitor.  His  work  will  be  reported  by  Murphy  et 
al.  (1988). 

In  the  renewal  proposal  to  NASA,  it  was  proposed  to 
build  a theoretical  model  of  the  noise  removal  in  order  to 
determine  whether  it  might  be  possible  to  calculate 
analytically  the  optimum  iteration  number . Mr . Amini  has 
built  a theoretical  model  which  includes  the  noise  spectrum 
as  well  as  the  data  spectrum  and  the  transfer  function.  His 
model  also  includes  the  deconvolution.  Unfortunately  the 
theoretical  result  is  a complicated  function  of  these  spectra 
and  does  not  lend  itself  to  any  direct  determination  of  the 
optimization.  Therefore  the  simulation  approach  which  has 
been  used  for  our  work  is  still  the  method  of  choice,  and 
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will  be  until  a more  efficient  procedure  can  be  found. 

As  part  of  his  grant  investigation,  Mr.  Amini  also 
analyzed  the  procedure  invented  by  LaCoste  (1982)  for 
accelerating  van  Cittert-type  iterations.  Although  Lacoste 's 
method  has  limited  utility  because  of  certain  details  of  its 
operation,  Mr.  Amini  was  able  to  invent  new  methods  of 
accelerating  the  iterations  which  promise  to  be  extremely 
important  for  the  deconvolution  of  low  resolution 
instruments.  These  methods  are  currently  being  tested  as 
part  of  our  continuing  NASA  grant -supported  work,  and  the 
Technical  Monitor  will  be  apprised  of  all  new  developments . 
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and  George  E.  Ioup  and  Juliette  W.  Ioup,  Department  of  Physics  and  Geophysical  Research 
Laboratory,  University  of  New  Orleans,  New  Orleans,  LA  70148 

SUMMARY 

The  reblurring/mirror  image  iterative  procedure  (RB)  of  Kawata  and  Ichioka  and 
LaCoste,  and  the  always-convergent  iterative  procedure  (AC)  of  Ioup  are  compared  for 
synthetic  seismic  data  to  standard  least-squares  spiking  deconvolution  (LS).  A test  is 
constructed  which  accounts  for  the  differing  assumptions  of  the  methods.  These  assumptions 
are  discussed  and  contrasted.  The  fact  that  the  iterative  or  any  other  deconvolution 
technique  can  use  an  approach  to  minimum  phase  wavelet  estimation  equivalent  to  that  of  the 
zero  delay  LS  spiking  deconvolution  (except  for  noise)  is  discussed.  Varying  spike 
separations  and  heights  are  employed  to  test  the  resolution  of  the  techniques  for  noise-free 
data  and  for  data  with  a signal-to-noise  ratio  of  40.  The  results  show  that  the  RB 
deconvolves  slowly  as  a function  of  iteration  number  and  is  not  very  sensitive  to  noise. 
The  LS  and  AC' deconvolutions  for  the  noise-free  data  are  very  similar.  For  the  noisy  data 
the  LS  gives  slightly  more  resolution  and  slightly  less  noise  than  the  50  iteration  result 
selected  for  the  AC.  Finally,  techniques  for  improving  the  results  are  summarized. 

The  development  of  the  reblurring/mirror  image  iterative  procedure  (RB)  of  Kawata 
and  Ichioka  (1980)  and  LaCoste  (1982)  and  the  always-convergent  iterative  technique  (AC)  of 
Ioup  (1981)  enhances  the  applicability  of  iterative  methods  to  spiking  and  shaping 
deconvolution  of  seismic  data.  It  is  important  to  compare  these  methods  to  the  standard 
least-squares  approach  (LS)  (Robinson,  1980;  Robinson  and  Treitel,  1980).  This  comparison 
is  made  difficult  by  the  fact  that  the  assumptions  for  the  LS  can  differ  significantly  from 
those  of  the  iterative  techniques.  The  former  often  assumes  that  the  autocorrelation  of  the 
wavelet  may  be  calculated  from  that  of  the  data,  for  non-noisy  data,  if  the  input  spike 
series  is  white.  It  assumes  the  phase  of  the  wavelet  to  be  minimum  for  zero-delay  spiking, 
or  it  assumes  that  the  wavelet  is  known  so  that  the  optimum  delay  or  shape  for  the  desired 
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output  may  be  selected.  It  is  possible  to  use  sideways  recursion  to  determine  the  optimum 
delay  for  deconvolution,  again  with  knowledge  of  the  wavelet  (Wiggins  and  Robinson,  1965; 
Simpson  et  al.,  1963).  The  iterative  techniques  assume  the  wavelet  is  known.  Although  the 
LS  in  general  requires  the  power  spectrum  of  the  noise,  this  does  not  present  a difficulty 
if  it  may  be  assumed  that  the  signal  and  noise  are  uncorrelated.  This  is  because  the  filter 
calculation  requires  the.  autocorrelation  of  the  wavelet  plus  the  autocorrelation  of  the 
noise  as  a single  factor,  and  this  autocorrelation  may  be  taken  to  be  the  autocorrelation  of 
the  seismic  data,  provided  the  signal  and  noise  are  uncorrelated  and  the  white  input 
assumption  holds.  For  automatic  application,  the  iterative  techniques  require  a general 
characterization  of  the  noise,  e.g.,  by  the  signal— to— noise  ratio  (S/N)  of  the  data,  to 
guide  the  determination  of  the  optimum  number  of  iterations  for  deconvolution  (Leclere, 


1984). 

The  differences  in  these  approaches  to  the  data  are  not  as  great  as  they  might  seem. 
For  example,  in  the  zero  delay  spiking  for  the  LS,  Wold  decomposition  (Wold,  1954)  and  an 
intrinsic  miminum  delay  (minimum  phase)  assumption  are  used  to  incorporate  the  wavelet.  But 
Wold  decomposition  may  be  used  to  find  the  autocorrelation  of  the  wavelet  from  the  data 
prior  to  any  method  of  deconvolution  with  the  same-  assumption  of  a white  input.  A standard 
calculation  (Oppenheim  and  Schafer,  1975;  Claerbout,  1976)  may  then  be  made  to  find  the 
corresponding  minimum  phase  wavelet,  independent  of  the  least— squares  approach.  A 
difficulty  is  that  the  noise  will  be  a contaminant  in  the  autocorrelation  and  so  must  be 
accounted  for.  As  the  techniques  of  wavelet  estimation  become  more  successful  for  seismic 
data,  this  problem  may  be  overcome,  and  it  is  possible  with  further  developments  that 
neither  the  minimum  nor  any  other  phase  assumption  will  be  necessary.  It  is  also  possible 
that  making  the  noise  a part  of  the  wavelet  autocorrelation  will  be  beneficial  to  the 
iterative  techniques  as  it  is  to  the  least-squares  method. 

Since  we  are  adding  noise  to  synthetic  data,  we  can  construct  a test  which  we  feel 
•is  fair  to  all  three  methods  and  still  meaningful.  The  wavelet  is  taken  to  be  minimum  phase 
so  that  it  is  the  appropriate  wavelet  for  zero-delay  spiking  deconvolution.  Since  the 
noise-free  data  are  known,  the  autocorrelation  of  the  noise  can  be  calculated  for  the 
purpose  of  achieving  an  optimum  LS  filter  without  the  assumption  of  a white  input  spike 


.series.  The  S/N  for  the  data  is  also  available  to  guide  in  the  selection  of  the  number  of 
iterations  to  be  used  in  the  iterative  techniques.  It  should  be  emphasized  that  this  paper 
is  'concerned  with  deconvolution  performance  for  noise-free  and  noisy  data,  and  not  with 
comparisons  of  computer  economics,  since  the  present  iterative  techniques  have  not  been 

optimized  for  speed.  To  examine  the  limits  <?f  resolution  for  the  techniques,  an  input  spike 

series  was  created  with  systematically  increasing  separations  for  the  spikes  for  two  equal 
spikes  and  for  second  spikes  having  heights  of  0.5  and  0.25  of  the  first.  This  was  done 

both  for  spikes  of  the  same  polarity  and  for  two  spikes  with  opposite  polarity.  The 

separations  of  the  spikes  were  successively  increased  by  one  from  two  sample  intervals  to 
seven  sample  intervals. 

The  results  of  the  deconvolution  for  the  same  polarity  data  are  given  in  Fig.  1, 
and  those  of  opposite  polarity  in  Fig.  2.  In  each  figure  the  top  three  tests  are  for  the 
noise-free  data  and  the  bottom  three  are  for  the  same  data  with  noise  added  for  a S/N  of  40. 
Each  trace  in  a set  of  three  corresponds  to  a different  deconvolution  technique.  The  order 
from  top  to  bottom  in  these  sets  is  (1)  RB,  (2)  zero  delay  spiking  LS,  and  (3)  AC.  For  the 
RB,  400  iterations  were  used  in  all  applications.  For  the  LS  a 100  length  filter  was 
applied.  For  the  AC,  the  noise-free  result  is.  that  of  200  iterations,  while  the  noisy 
result  is  that  of  50  iterations. 

The  RB  is  a slow  function  of  iteration  number  compared  to  other  iterative 
techniques,  and  this  is  apparent  in  all  cases.  The  resolution  even  after  400  iterations  is 
significantly  less  than  that  of  the  other  two  methods.  As  expected,  however,  the 
sensitivity  to  noise  is  also  much  less.  The  performance  of  the  LS  and  the  AC  are  similar 
for  the  noise— free  data.  Comparison  for  the  noisy  data  shows  slightly  less  resolution  and 
slightly  more  noise  for  the  AC  result  of  fifty  iterations.  A good  idea  of  the  resolution 
performance  may  be  obtained  from  the  figures;  however,  no  firm  conclusions  should  be  drawn 
for  the  noisy  data  until  a study  is  done  over  many  cases. 

There  are  important  improvements  for  all  three  methods  which  are  not  a part  of  the 
basic  test  results  shown  in  these  figures.  The  RB  may  be  accelerated  as  a function  of 
'iteration  number  using  the  procedure  given  by  LaCoste  (1982).  For  the  noisy  data  the  LS 
spiking  filter  can  be  replaced  by  a shaping  filter  (using  the  known  wavelet  in  the  filter 


d&sign)  which  would  be  less  sensitive  to  noise.  An  additional  white  noise  term  may  be  added 
to  the  noise  autocorrelation  in  the  filter  design,  again  to  reduce  the  sensitivity  to  noise. 
Both  'of  these  changes  would  reduce  the  resolution  in  the  result.  A longer  filter  can  also 
be  used  to  improve  the  result.  The  AC  is  less  sensitive  to  noise  if  preceeded  by  an  always- 
convergent  iterative  noise  removal  technique  which  has  not  been  used  for  this  basic  test 
(Ioup,  1981;  Ioup  and  Ioup,  1983;  Ioup  et  al.,  1983/1984). 
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ABSTRACT 


Morrison's  iterative  method  of  noise  removal,  or 
Morrison's  smoothing,  is  applied  in  a simulation  to 
noise-added  data  sets  of  various  noise  levels  to  determine 
the  optimum  use  of  the  method.  Morrison's  smoothing  is 
applied  for  noise  removal  alone,  and  for  noise  removal  prior 
to  deconvolution. 


For  the  latter  calculation,  an  accurate  method  of 
deconvolution  is  analyzed  to  provide  confidence  in  the 
optimization.  The  method  of  deconvolution  consists  of 
convolving  the  data  with  an  inverse  filter  calculated  by 
taking  the  inverse  discrete  Fourier  transform  of  the 
reciprocal  of  the  transform  of  the  response  of  the  system. 
Various  length  filters  are  calculated  for  the  narrow  and 
wide  gaussian  response  fuctions  used.  Deconvolution  of 
non-noisy  data  is  performed,  and  the  error  in  each 
deconvolution  calculated.  Plots  are  produced  of  error 
versus  filter  length;  and  from  these  plots  the  most 
accurate  length  filters  are  determined. 


The  statistical  methodologies  employed  in  the 
optimizations  of  Morrison's  method  are  similar.  A typical 
peak- type  input  is  selected  and  convolved  with  the  two 
response  fuctions  to  produce  the  data  sets  to  be  analyzed. 
Both  constant  and  ordinate-dependent  gaussian  distributed 


xiv 


noise  is  added  to  the  data,  where  the  noise  levels  of  the 
data  are  characterized  by  their  signal-to-noise  ratios.  The 
error  measures  employed  in  the  optimizations  are  the  Ll  and 
L2  norms.  Results  of  the  optimizations  for  both  gaussians, 
both  noise  types,  and  both  norms  include  figures  of  optimum 
iteration  number  and  error  improvement  versus 
signal-to-noise  ratio,  and  tables  of  results.  The 
statistical  variation  of  all  quantities  considered  is  also 
given. 

The  computer  codes  employed  are  included  in  the 
appendix?  and  the  correspondence  with  an  optimization  of 
van  Cittert's  iterative  deconvolution  and  suggestions  for 
future  research  are  also  given. 


XV 


CHAPTER  I 


INTRODUCTION 


Morrison's  noise  removal  (Morrison,  1963) , or 
Morrison's  smoothing,  is  an  iterative  technique  in  which  the 
first  iteration  smoothes  the  data  to  which  it  is  aoolied, 
and  which  with  each  subsequent  iteration  restores  the  data 
to  the  original,  except  for  incompatable  noise,  upon 
convergence  of  the  method  It  has  been  shown  by  Ioup(1968) , 
Wright (1980) , Ioup  et  al  (1983/1984),  and  others,  that  the 
iterations  may  be  terminated  before  convergence  of  the 
method  and  a reasonable  approximation  to  the  noise  free 
signal  obtained.  Indeed,  this  approximation  can  be  better 
than  that  obtained  on  convergence.  This  work  concerns  the 
optimum  use  of  Morrison's  noise  removal  for  noise  removal 
alone,  and  for  noise  removal  prior  to  deconvolution.  It 
should  be  noted  that  the  primarv  use  of  Morrison's  method  is 
for  noise  removal  prior  to  deconvolution,  and  the  reader  mav 
be  familiar  with  more  effective  methods  for  noise  removal 
alone. 


Before  a study  can  be  undertaken  to  determine  . the 
optimum  use  of  Morrison's  noise  removal  prior  to 
deconvolution,  some  determination  of  the  accuracy  of  the 
operation  of  the  deconvolution  itself  must  be  made.  Chapter 
II  outlines  the  method  for  choosing  the  most  accurate  length 
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inverse  filter,  calculated  from  the  response  of  the  system, 
to  be  used  for  deconvolution.  Included  is  the  procedure  for 
calculating  the  filter,  along  with  the  testing  methodoloqy 
for  determining  accuracy.  Also  given  is  a detailed 
discussion  of  the  theoretical  and  experimental  errors  which 
most  affect  the  reliability  of  the  filter  and  the  accuracy 
of  the  deconvolution. 

Chapter  III  is  a study  of  the  optimum  use  of  Morrison's 
smoothing  for  noise  removal  alone.  A statistical  study  is 
performed  in  which  the  optimum  use  of  Morrison  s noise 
removal  is  determined  when  applied  to  data  sets  of  varying 
noise  levels.  A discussion  of  the  types  of  noise  added  to 
the  data  is  provided  and  the  statistical  methodology 
emploved  for  optimization  is  outlined.  Plots  of 
optimization  results,  i e optimum  iteration  number  versus 
noise  level  are  provided,  as  are  tables  listing  numerical 
results.  A detailed  analysis  of  the  results  obtained  is 
also  given,  including  tables  and  plots  showing  the 
improvement  at  the  optimum  iteration  number.  The 
statistical  variation  of  all  results  is  also  given. 

The  studv  of  the  optimum  use  of  Morrison's  smoothing 
prior  to  deconvolution  is  dicussed  in  Chapter  IV.  Here 
Morrison's  smoothing  is  applied  to  data  sets  having 
approximately  the  same  noise  levels  as  those  of  Chapter  Tllf 
and  deconvolution  is  performed  after  each  of  Morrison's 
iterations  by  applying  the  most  accurate  length  filter 
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calculated  in  Chapter  II.  The  optimization,  i.e.,  the 
choice  of  optimum  iteration  number,  is  based  on  the 
deconvolved  result.  The  statistical  method  of  optimization 
is  provided,  along  with  an  analysis  of  results.  Plots  of 
optimum  iteration  number  and  the  corresponding  noise 
reduction  versus  noise  level  are  oroduced. 


A comparison  of  the  optimum  use  of  Morrison's  smoothing 
for  noise  removal  alone  and  prior  to  deconvolution  is  given 
in  the  conclusion  section.  Guidelines  are  given  which  a 
user  may  follow  in  the  application  of  the  results  obtained 
in  the  preceeding  chapters.  Also,  the  correspondence  of 
Morrison's  method  with  van  Cittert's  iterative  method  of 
deconvolution  is  given,  as  are  suggestions  for  further 
research.  The  appendix  lists  all  of  the  computer  programs 
used  to  calculate  the  results  of  this  study,  and  contains 
brief  computer  documentation  for  each  program. 


CHAPTER  II 


INVERSE  FILTER 

Input  to  any  linear,  shift-invariant  system  is 
distorted  by  the  system  itself,  where  the  effect  on  the 
input  is  determined  by  the  impulse  response  of  the  system. 
The  output  of  the  system  is  the  distorted  input.  This 
effect  of  the  impulse  response  on  the  input  is  represented 
mathematically  by  the  convolution  of  the  input  and  the 
impulse  response,  or  discretely  by  their  serial  product, 
convolution  sum,  or  discrete  convolution  (Bracewell,  1978). 


Figure  (2.1) 
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where  f is  the  input,  g the  impulse  response  of  the  system, 
and  h the  distorted  output. 

To  remove  the  effect  of  the  response,  the  output  is 
deconvolved.  One  approach  is  that  a function  domain  inverse 
filter  is  calculated  from  the  response  of  the  system,  which 
when  convolved  with  the  output  results  in  a good 

approximation  of  the  original  input.  There  are  several 
methods  used  for  the  calculation  of  an  inverse  filter.  The 
technique  used  in  this  work  is  to  take  the  inverse  transform 
of  the  Discrete  Fourier  Transform  (DFT)  of  the  impulse 

response: 


f(x)  * (x)  * h(x) 

F (s)  G(S)  = H (s) 

F (s)  = H (s)  (1/G  (s)  ) 

f(x)  = h(x)  * (inverse  filter(x))  , 


uj 

inverse  filter(x)  = 1/NT  IS.  (1/  G(s) 


e+i2irs  x/tfT 

¥ 


where  capital  letters  denote  the  Fourier  transform 
representations  of  the  corresponding  functions,  and  the 
Fourier  transform  of  the  convolution  of  f and  g is  the 
product  of  their  transforms  by  the  Convolution  Theorem 
(Bracewell,  1978) . NT  is  the  number  of  discrete  frequency 
components  contained  in  1/G(s)  , and  x and  s are  the 


function  and  transform  domain  variables,  respectively. 
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Before  deconvolution,  it  is  desired  to  know  something 
about  the  accuracy  of  the  inverse  filter  calculated.  As 
will  be  shown,  the  accuracy  of  the  filter  is  very  dependent 
on  the  length  of  the  filter,  and  this  chapter  concerns  the 
calculation  and  test  procedure  used  in  determining  the 
optimum  length  filter  for  the  technioue  employed. 

In  a previous  work  Wright(1980)  constructed  the 
gaussian  impulse  response  functions  of  two  widths  and  the 
realistic  input  to  the  system  which  are  used  for  this  study. 

The  gaussian  responses  are  discrete  real  valued 
functions  of  nine  and  twenty- one  points,  both  with  unit 
area.  Both  re  ponses  are  represented  bv  g,  and  their  number 
of  points  by  N.  They  are  referred  to  as  the  narrow  and  wide 
gaussians  and  are  shown  in  figures  (2.2)  and  (2.3)  , 
respectively. 

The  input  consists  of  three  gaussians  representing 
approximate  impulses  input  to  the  system,  where  the  peaks 
are  close  enough  to  have  overlap  after  convolution  with  g. 
The  string  of  approximate  inraulses  is  twentv-four  points  in 
length,  with  zeroes  on  the  ends  and  in  between  the  peaks. 
The  input  is  represented  by  f,  the  number  of  points  by  L, 
and  f is  shown  in  figure  (2.4). 

As  mentioned  above,  the  output  of  the  svstem, 
represented  by  h,  is  the  convolution  of  the  input  with  the 
response  of  the  system.  The  length  of  the  output  is  N+L-l 
points  (Bracewell , 1978),  where  the  lengths  for  the  outputs 
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of  the  narrow  and  wide  gaussian  responses  are  thirty-two  and 
forty-four  points,  respectively.  These  lengths  are 
represented  by  M,  and  figures  (2. 5)  and  (2.6)  are  plots  of 
these  outputs. 


Wraparound  Error 

Since  the  system  considered  is  entirely  discrete  we 
assume  there  is  no  error  due  to  sampling  (Bracewell,  1978)  . 
Thus  theoretically  the  most  significant  effect  on  the 
accuracy  of  the  inverse  filter  is  wraparound  error  in  the 
function  domain  (Oppenheim  and  Schafer,  1975).  The 
wraparound  is  significant  because  the  filter  is  calculated 
from  a sampled  transform  domain  function  with  frequency 
components  of  large  magnitude  at  the  edges  of  the  window.  A 
procedure  to  reduce  this  effect  is  to  reduce  the  sampling 
interval  in  the  transform  domain,  or  correspondingly,  to  add 
zeroes  in  the  function  domain.  This  results  in  widening  the 
function  domain  window  of  the  filter,  thus  reducing  the 
error  introduced  by  wraparound.  In  this  study  filters  of 
increasing  length  are  calculated,  with  the  purpose  being  to 
choose  the  most  accurate  length  filter  applicable. 

Figures  (2.7)  through  (2.11)  show  how  too  coarse  a 
sampling  interval  in  the  transform  domain  causes  significant 
wraparound  in  the  calculation  of  the  filter,  and  how 
sampling  at  a finer  rate  can  reduce  this  effect  greatly. 
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Figure  (2.7)  is  the  coarsely  sampled  function  1/G(s),  and 
fiqure  (8)  is  the  inverse  filter  calculated  from  1/G(s). 
The  transform  domain  function  has  NT=32  ooints  and  the 
inverse  filter  has  NT+1=33  points.  More  will  be  said  later 
as  to  why  the  filter  is  one  point  longer.  There  is 
significant  wraparound  with  the  33  point  filter  as  overlap 
from  the  replicated  windows  interferes  with  the  window  of 
intrest. 

Figures  (2.9)  and  (2.10)  show  1/G(s)  sampled  at  a finer 
interval,  NT=64.  and  the  corresponding  65  point  inverse 
filter,  respectively.  Note  that  increasing  the  number  of 
points  in  the  transform  increases  the  length  of  the  filter, 
thus  reducing  the  wraparound  significantly.  A portion  of 
both  length  filters  is  overlaved  in  figure  (2.11)  , where  the 
effect  from  wraparound  can  be  observed  in  the  32  point 
filter. 

It  should  be  noted  that  a filter  calculated  from  the 
narrow  gaussian  has  less  wraparound  than  a wide  gaussian 
filter  of  the  same  length  and  sampling  interval.  The 
transform  of  the  narrow  gaussian,  G(s) , is  wider  and  has 
larger  values  at  the  edges  of  it"*s  window.  When  the  filter 
is  calculated  from  the  reciprocal  of  the  transform,  1/G(s) , 
the  filter  has  less  oscillations  and  dies  off  more  rapidlv 
since  the  narrow  case  1/G(s)  has  smaller  values  at  the 
window  edges.  Observe  the  64  point  reciprocal,  1/G(s)  , and 
the  65  point  narrow  gaussian  filter  shown  in  figures  (2.12) 
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and  (2.13),  respectively. 

It  is  noted,  and  it  will  be  discussed  in  more  detail 
later,  that  the  precision  with  which  the  calculations  are 
carried  out  has  an  effect  in  determining  the  ootimum  length 
filter,  as  round-off  error  in  the  calculations  can  cause 
inconsistency  and  erroneous  results  in  the  test  procedure. 

Inverse  Filter  Calculation 

To  calculate  an  inverse  filter  from  one  of  the  two 
response  functions  (the  calculation  for  the  wide  gaussian  65 
point  filter  is  shown  here)  the  function  is  first  prepared 
so  that  it's  transform  can  be  calculated  with  the  Fast 
Fourier  Transform  (FFT)  subroutine  used  (Higgins,  1976). 

The  FFT  subroutine  requires  that  input  data  have  real 
and  imaginary  components  and  that  the  number  of  points 
input,  NT,  be  a power  of  two  greater  than  two  (Higgins, 
1976)  . To  meet  these  requirements,  and  to  increase  the 
lenqth  of  the  filter  to  reduce  wraparound  zeroes  are  added 
to  the  end  of  the  data  so  that  the  length  is  NT.  Then 
zeroes  representing  the  imaginarv  part  of  the  data  are  added 
between  successive  real  points,  and  on  the  end,  until  the 
total  lenqth  is  2NT.  For  this  study  NT  will  have  values 
32,64....  4096.  Figure  (2.14)  is  the  prepared  wide  gaussian 
with  NT=64,  where  the  zero  imaginary  component  is  not  shown. 
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As 

the 

peak  of  the 

response 

is 

not 

centered 

on  the 

origin, 

the 

response  is 

shifted 

in 

the 

function 

domain. 

When  the 

Fourier  transform  of 

the 

shifted  qaussian  is 

calculated,  the  phase  will  he  effected  thuslv  (Bracewell, 
1978)  : 


g(x-a)  3 exp  (-i2rrsa)  G (s) 


where  G(s)  is  the  transform  of  g(x),  "a"  represents  the 
amount  that  g is  shifted  from  the  origin,  and  i2rrsa 
represents  the  delay  in  phase.  Figure  (2.15)  is  the 
transform  of  the  shifted  function,  where  the  real  component 
is  denoted  by  "o",  and  the  imaginarv  part  by  "x". 

The  magnitude  of  the  transform  is  then  calculated 
eliminating  the  delay  in  phase: 


G (s)  = ( [Re(G(s))]2  + [ Im  (G  (s)  ) ] 2 ) 1/2  = GQ(S) 

The  64  point  G(s)  is  shown  in  figure  (2.16),  where  the  high 
positive  and  negative  frequencies  are  located  at  the  center 
of  the  window.  It  is  the  small  magnitude  high  frequencies 
which  increase  the  wraparound. 
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The  reciprocal  of  G(s)  is  calculated,  figure  (2.9) , and 
zeroes  are  then  added  between  successive  real  points,  and  at 
the  2NT'th  point,  in  preoeration  for  applying  the  inverse 
FFT  to  calculate  the  inverse  filter.  The  64  point  inverse 
filter  is  shown  in  figure  (2.17). 

For  the  deconvolution  calculations  that  follow,  the 
peak  is  shifted  to  the  center  of  the  window  and  the  filter 
made  symmetric  by  dividing  the  first  point  of  the  shifted 
filter  by  two  and  adding  a sixty-fifth  point  (NT+1)  equal  to 
the  first  point.  The  result  is  a real,  svmmetric,  NT+1 
length  inverse  filte- . Figure  (2.10)  shows  the  65  point 
symmetric  inverse  filter. 


Optimum  Length  Test  Procedure 

The  methodology  employed  in  determining  the  optimum 
length  filter  to  use  for  deconvolution  is  to  calculate 
inverse  filters  of  lengths  33 , 65 , . . . , 4097 , as  just 
described,  for  each  of  the  two  response  functions.  Noise 
free  data  h are  then  deconvolved  by  applying  each  of  the 
various  length  symmetric  filters.  The  results  of  the 
deconvolutions  are  compared  to  the  known  input  f,  and  also 
with  the  result  of  the  deconvolution  performed  with  the 
longest  length  filter,  with  suitable  error  measures.  In  the 
latter  instance  this  deconvolution  is  assumed  to  be  the  most 
accurate,  as  might  be  done  if  f is  not  known.  There  are 
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some  minor  problems  with  this  assumption  as  will  be 
discussed. 

The  error  measures  used  in  the  comparisons  with  f are 
the  sum  of  the  absolute  error,  and  the  sum  of  the  squared 
error,  or  variance,  per  point.  These  measures  are 

calculated  over  the  input  window  L,  the  data  window  M,  and 
the  full  ranqe  of  the  deconvolution  NT+M.  The  notations 

used  for  the  two  measures  for  the  window  L are  SMABER/L  and 
SMSQER/L , respectivelv.  For  the  window  M the  expressions 
are: 


in 

SMABER/M  = (1/M)  £HN(I)-f(I) 

l-i 


and 

SMSQER/M  = (1/M)  C (HN(I)-f  (I)  ) 2 

I-i 

* 

where  HN(I)  is  the  deconvolved  result. 

For  comparison  to  the  longest  lenqth  filter,  the  sum  of 
the  absolute  difference  and  sum  of  the  squared  difference 
per  point,  SMABDF/ (NT+M)  and  SMSQDF/ (NT+M) , respectively, 
are  calculated.  f(I)  is  replaced  by  the  longest  filter 
result  in  the  above  expressions. 
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Plots  are  oroduced  of  the  various  length  inverse 
filters  and  the  deconvolution  results,  figures  (2,10), 
(2.13) , and  (2.19) - (2.30) , and  of  the  error  versus  the 
number  of  points  of  the  filter,  figures  ( 2 . 31) - (2 . 46) . 

From  the  error  plots  it  is  possible  to  choose  the  most 
accurate  length  filter  to  apply  in  deconvolution  for  the 
width  response  under  consideration.  The  sensitivity  of 
deconvolution  to  small  error  in  the  inverse  filter  can  be 
seen  by  observing  the  plots  of  the  filter  and  deconvolution 
for  the  wide  gaussian  65  point  case,  figures  (2.10)  and 
(2.27).  Comparing  the  65  point  filter  with  the  4097  point 
filter,  figure  (2.22),  no  apparent  wraparound  is  noticed  in 
the  65  point  case,  yet  in  the  deconvolved  result  the  error 
is  readily  observable.  This  effect  is  most  easily 
understood  in  the  transform  domain.  At  freauencies  where 
G(s)  is  small,  small  changes  in  G(s)  can  be  large  percentage 
changes  in  G(s)  , 1/  G(s)  , and  the  deconvolved  result, 
F(s)=H(s)/G(s)  . 


Test  Results 

For  all  length  filter  plots,  figures  ( 2 . 18) - (2 . 22) , of 
both  narrow  and  wide  gaussian  cases,  onlv  the  33  point  wide 
gaussian  case  filter  shows  evidence  of  wraparound.  Plots  of 
the  deconvolutions,  figures  (2. 23) - ( 2 . 30) , show  wraparound 
only  in  the  65  and  129  point  wide  cases.  Yet,  the  error 
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results,  figures  (2.35)  and  (2.40),  for  both  the  narrow  and 
wide  gaussians,  when  calculated  over  the  full  range  of  the 
deconvolution,  show  a monotonic  decrease  in  error  as  the 
filter  length  increases. 

It  should  be  noted,  that  doing  all  computer 
calculations  in  double  (or  even  a higher)  precision  is 
esential  for  consistent  results  in  both  the  narrow  and  wide 
gaussian  cases  because  of  the  sensitivity  of  the 
calculations  to  round-off  error.  No  attempt  to  reduce  this 
sensitivity  bv  alteration  of  calculations  is  made.  For 
routine  calculations  this  would  be  important.  All  results 
given  here  are  double  precision  results  unless  otherwise 
specified.  Doing  calculations  in  single  precision  was 
originally  attempted  and  there  was  little  consistency  in  the 
results;  many  of  the  results  were  simply  wrong. 

The  deconvolution  is  especially  sensitive  to  the 
precision  of  the  calculation  as  there  are  many  additions  and 
subtractions  of  very  small  numbers  in  the  inverse  filter 
with  relatively  large  values  in  the  data.  The  inverse 
filter  calculation  also  contributes  greatlv  to  round-off 
error,  oerhaps  even  more  so  than  the  deconvolution 
calculation  (this  was  not  determined)  because  of  the  large 
magnitude  of  1/G(s)  at  high  frequencies.  In  both  cases  the 
round-off  error  could  be  reduced  siqnif icantlv  bv  adding  all 
of  the  subtraction  amounts  and  doing  a subtraction  just  once 


for  each  case. 
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As  mentioned  above,  the  inverse  filter  calculated  from 
the  narrow  gaussian  has  less  oscillations  and  dies  off  more 
rapidly  than  the  filter  for  the  wide  gaussian  case,  so  that 
there  are  less  small  neqative  values  affecting  the  result. 
For  this  reason,  as  well  as  1/  G(s)  having  smaller  magnitude 
high  frequencies,  the  narrow  case  is  less  affected  by 
round-off  error. 

The  results  calculated  in  double  precision  are  somewhat 
affected  by  round-off  error,  but  the  results  are  much  more 
consistent  and  correct  than  the  single  orecision  results. 

Figures  (2.47)  and  (2.32)  are  plots  of  the  sum  of  the 
square  error  per  point  calculated  over  the  L length  window 
for  the  narrow  gaussian  versus  filter  length,  for  single  and 
double  precision  calculations,  respectivelv.  As  is  evident, 
the  double  orecision  plot  exhibits  the  type  of  theoretical 
behavior  expected,  i.e.,  decreasing  error  as  filter  length 
increases,  while  the  error  in  the  single  orecision  Plot  does 
not  at  all  increase  monotonically  nor  smoothlv  as  the  filter 
length  increases. 

Plots  of  the  error  versus  filter  length  for  both  the 
narrow  and  wide  gaussian  cases  are  shown  in  figures 
(2 . 31) -(2.40) . The  numerical  results  given  to  seven 
significant  figures  are  listed  in  tables  (2.1)  and  (2.2).  A 
discussion  of  the  plot  behavior  is  now  detailed,  along  with 
the  criterion  by  which  the  optimum  length  filter  for 


deconvoluion  is  selected. 
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Examination  of  the  results  of  the  narrow  gaussian  case, 
figures  (2.31)— (2.35) , shows  that  in  all  measures  calculated 
the  error  increases  monotonically  as  the  filter  length 
decreases.  The  results  of  the  two  error  measures  of  the 
deconvolution  compared  to  the  known  input  calculated  over  L 
and  M length  windows,  show  that  there  is  relatively  large 
error  due  to  wraparound  for  the  33  point  filter.  Increasing 
the  filter  length  to  65  points  greatly  reduces  the  error, 
and  in  all  but  one  case,  the  sum  of  the  absolute  error 
calculated  over  M points,  SMABER/M,  the  decrease  in  error 
esentially  levels  off  by  the  257  point  filter.  The  large 
relative  decrease  in  error  for  the  4097  point  filter  is 
thought  to  be  a consequence  of  the  type  error  measure  used, 
as  the  sum  of  the  square  error  calculated  over  the  M window, 
SMSQER/M,  and  the  two  measures  calculated  over  the  L window 
do  not  show  this  decrease.  The  sum  of  the  square  error 
calculated  over  the  full  length  of  the  deconvolution, 
SMSQER/ (NT+M) , decreases  significantly  and  monotonically  as 
the  filter  length  increases. 

From  the  theoretically  consistent  behavior  or  the 
results  of  the  narrow  gaussian  case,  it  is  believed  that  the 
major  contribution  to  the  error  is  from  wraparound,  and  that 
round-off  error  is  insignificant. 

In  the  comparison  of  the  deconvolution  to  f for  the 
wide  gaussian  case,  figures  (2. 36) - (2. 40)  , the  error 
introduced  from  wraparound  is  too  large  to  be  considered 


17 


when  applying  the  33  ooint  filter.  Increasing  the  length  to 
65  points  again  greatly  reduces  the  error,  but  with  the 
error  measures  calculated  over  the  M length  window,  the 
errors  are  still  relatively  large  when  comoared  to  the 
results  of  the  longer  length  filters.  The  error  is  actually 
a minimum  for  the  65  point  filter  with  the  error  calculated 
over  the  L length  window,  and  the  129  point  filter  shows  the 
best  results  for  the  M length  measures. 

Three  of  the  four  measures  calculated  over  the  L and  M 
windows  show  a slight  increase  in  error  as  the  filter  length 
increases  from  129  points  for  all  greater  length  filters. 
It  is  believed  that  this  departure  from  expected  theoretical 
behavior  is  due  to  round-off  error.  Evidently  the  increase 
in  round-off  error  as  filter  length  increases  is  greater 
than  the  improvement  in  wraparound.  The  SMABER/M  shows  a 
significant  decrease  in  error  for  the  4097  point  filter.  As 
for  the  narrow  case,  this  is  thought  to  be  a consequence  of 
the  type  measure  employed  for  very  small  numbers.  The 
measures  taken  over  (NT+M)  points  exhibit  the  theoretical 
behavior  of  decreasing  error  as  filter  lenqth  is  increased. 

The  results  of  comparing  the  deconvolutions  to  the 
longest  length  deconvolution  are  only  shown  for  the  result 
calculated  over  the  NT+M  window  for  the  wide  gaussian  case, 
figures  (2.45)  and  (2.46).  For  the  narrow  case  the  result 
are  shown  calculated  over  the  M and  NT+M  windows,  figures 
(2.41)-(2.44) . The  numerical  results  are  listed  in  table 
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(2.3).  For  the  wide  case  this  is  because  round-off  affected 
the  shorter  length  window  results  enough  that,  in  general 
for  these  windows,  the  deconvolutions  performed  with  the 
shorter  length  filters  are  more  accurate. 

In  the  selection  of  the  the  optimum  length  filter  to 
apply  in  deconvolution  for  both  the  narrow  and  wide  cases, 
it  was  decided  to  make  the  selection  from  the  L and  M length 
error  results,  with  the  M length  results  being  weighted  more 
heavily  in  the  decision.  This  is  because  the  shorter  length 
windows  are  usuallv  the  regions  of  most  interest 
experimentally.  In  the  work  of  Chapter  IV  we  will  only  be 
concerned  with  the  result  calculated  over  the  M window.  The. 
results  calculated  by  comparing  to  the  lonqest  length  filter 
are  not  considered  in  the  selection. 

For  the  narrow  case  the  257  point  filter  is  chosen  as 
the  most  accurate.  The  error  had  esentially  leveled  off  by 
the  257  length  result  for  most  cases,  and  the  small  increase 
in  accuracy  gained  by  using  a longer  length  filter  will  not 
compensate  for  the  increased  computer  time  needed  for  the 
longer  length  calculations.  The  reduction  in  computation 
time  is  especially  important  for  the  work  of  Chapter  IV. 
The  optimum  length  filter  for  the  wide  case  is  129  points, 
as  round-off  in  general  caused  an  increase  in  error  for 
longer  length  filters.  For  the  SMABER/M  where  there  was  a 
large  relative  decrease  in  error,  this  was  roughly  only  a 3% 
decrease  for  both  narrow  and  wide  cases,  and  the  error 
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magnitude  is  small  enough  that  the  decrease  is 
insignificant. 

It  is  of  interest  that  a longer  length  filter  is  chosen 
as  optimum  for  the  narrow  case.  This  selection  goes  against 
theory  as  the  wide  case  should  require  a longer  filter.  As 
mentioned  previously,  the  departure  from  expected  results  is 
due  to  round-off  error,  and  doing  the  calculations  in  a 
higher  precision,  or  revising  the  calculations  would  result 
in  a longer  length  wide  filter.  Also,  examination  of  the  L 
and  M window  error  results  for  both  gaussians  show  that  the 
error  magnitudes  for  the  129  through  4097  length  filters  are 
all  very  close.  Using  even  a 65  point  filter  in  the  narrow 
case,  or  a longer  length  filter  than  129  points  in  the  wide 
case,  where  round-off  affects  the  accuracy,  will  not  affect 
the  deconvolution  too  severelv.  For  this  study  the 
selection  of  optimum  filter  length  is  based  most  imoortantlv 
on  error  reduction,  unless  there  is  a considerable  increase 
in  computation  time,  as  is  the  case  for  the  4097  point 
filter.  Another  user  of  these  results  mav  decide  he 
requires  more  or  less  accuracy  corresponding  to  his  needs 
and  computer  time  available.  The  computer  program  used  in 
calculating  all  results  of  this  chapter  are  listed  in  the 
appendix. 


Table  (2.1) 


NARROW  GAUSSIAN 


FILTER  LENGTH 

3 . 300000E+01 
6 . 500000E+01  . 
1 . 290000E+02 
2 . 570000E+02 
5 . 130000E+02 
1 . 025000E+03 
2 . 049000E+03 
4 . 097000E+03 


FILTER  LENGTH 

3 . 300000E+01 
6.500000E+01 
1.290000E+02 
2 . 570000E+0  2 
5 . 130000E+02 
1 . 025000E+03 
2 . 049000E+0  3 
4 . 097000E+03 


SMABER/L 

4 . 970879E-05 
1 . 068407E-05 
1 . 068390E-05 
1.068386E-05 
1 . 068385E-05 
1.068385E-05 
1 . 068385E-05 
1 . 068385E-05 


SMABER/M 

5 . 708786E-05 
8 . 411077E-06 
8 . 410643E-06 
8 . 410541E-06 
8 . 410508E-06 
8 . 410253E-06 
8 . 402295E-06 
8 . 147680E-06 


SMSQER/L 

9.528120E-09 
1.945857E-10 
1 . 945715E-10 
1 . 945680E-10 
1 . 945672E-10 
1 . 945669E-10 
1.945669E-10 
1 . 945669E-10 


SMSOER/M 

1 . 237392E-08 
1.460660E-in 
1 . 460555E-10 
1 . 460529E-10 
1 . 460523E-10 
1 . 460521E-10 
1.460521E-10 
1 . 460521E-10 


FILTER  LENGTH 

3 . 300000E+0 1 
6 . 500000E+01 
1. 290000E+0  2 
2 . 570000E+02 
5.130000E+02 
1 . 025000E+03 
2 . 049000E+03 
4 . 097000E+03 


SMSQER/ (NT+M) 

1 . 216599E-08 
4.868889E-11 
2 . 921147E— 11 
1.622845E-11 
8 . 591554E-12 
4 . 425974E-12 
2 . 247045E-12 
1. 132238E-12 


Table  (2.2) 


WIDE  GAUSSIAN 


FILTER  LENGTH 

3.300000E+01 
6 . 500000E+01 
1 . 290000E+02 
2 . 570000E+02 
5 . 130000E+02 
1 . 025000E+03 
2.049000E+03 
4 . 097000E+03 
1 . 025000E+03 
2.049000E+03 
4 . 097000E+03 


FILTER  LENGTH 

3 . 300000E+01 
6 . 500000E+01 
1 . 290000E+02 
2 . 570000E+02 
5 . 130000E+02 
1.025000E+03 
2 . 049000E+0  3 
4 . Q97000E+03 


SMABER/L 

7 . 054848E+03 
2.094336E-01 
2 . 094349E-01 
2 . 094352E-01 
2 . 094353E-01 
2 . 094353E-01 
2. 094353E-01 
2 . 094353E-01 
1 . 321833E-01 
1. 321174E-01 
1 . 291816E-01 


SMABER/M 

8 . 606430E+03 
3.211137E+00 
1 . 321193E-01 
1.321695E-01 
1 . 321818E-01 
1. 321833E-01 
1. 321174E-01 
1. 291816E-01 


SMSQER/L 

9 . 392609E+07 
6.822844E-02 
6 . 823538E-02 
6.823715E-02 
6 . 823761E-02 
6.823773E-02 
6.823777E-02 
6.823778E-02 
3.801159E-02 
3 . 801164E-02 
3 . 801165E-02 


SMSQER/M 

1 . 198460E+08 
9 . 266671E+01 
3.800783E-02 
3 . 801067E-02 
3 . 801140E-02 
3 . 801159E-02 
3.801164E-02 
3 . 801165E-02 


FILTER  LENGTH 

3 . 300000E+01 
6 . 500000E+01 
1 . 290000E+02 
2 . 570000E+02 
5.130000E+02 
1.025000E+03 
2.049000E+03 
4 . 097000E+03 


SMSOER/ (NT+M) 

8.827930E+07 
6.071961E+02 
1. 420265E-02 
5 . 649545E-03 
3.011642E-03 
1. 567809E-03 
8 * 004685E-04 
4.045085E-04 
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Table  (2.3) 
NARROW  GAUSSIAN 


FILTER  LENGTH  SMABDF/M 


3 . 300000E+01 
6 . 500000E+01 
1. 290000E+02 
2 . 570000E+02 
5 . 130000E+02 
1.025000E+03 
2 . 049000E+03 


FILTER  LENGTH 

3.300000E+01 
6.500000E+01 
1 . 290000E+02 
2 . 570000E+02 
5 . 130000E+0  2 
1 . 025000E+03 
2 . 049000E+0  3 


FILTER  LENGTH 

3 . 300000E+01 
6 . 500000E+01 
1 . 290000E+0  2 
2 570000E+02 
5 . 130000E+0  2 
1.025000E+03 
2 . 049000E+0  3 


5 . 238886E-05 
4 . 990104E-09 
1.207103E-09 
2.986158E-10 
7 . 363779E-11 
1.752466E-I1 
3 . 504542E-12 


SMABDF/ (NT+M) 

5 . 239288E-05 
1.534156E-08 
8 . 677523E-09 
4.773366E-09 
2.576831E-09 
1.336576E-09 
5 . 884715E-10 


WIDE  GAUSSIAN 


SMABDF/ (NT+M) 

6 . 508820E+0  3 
1. 431675E+01 
3 . 133485E-02 
3.288296E-03 
4 . 180027E-04 
1.592667E-04 
7 . 187993E-05 


SMSQDF/M 

5 . 238886E-05 
4 . 990104E-09 
1 . 207103E-09 
2.986158E-10 
7 . 363779E-11 
1.752466E-11 
3 . 504542E-12 


SMS QDF/ (NT+M) 

1 . 195982E-08 
4.379296E-16 
1.950363E-18 
8 . 856593E-17 
4 . 074210E-17 
1 . 803191E-17 
6 . 013890E-18 


SMSQDF/ (NT+M) 

8 . 827931E+07 
6 . 071861E+02 
4 . 466132E-03 
6 . 986873E-05 
6 . 927578E-07 
9 . 967352E-08 
3.949944E-08 
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Figure  (2.2) 
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Figure  (2.4) 
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Figure  (2.32) 
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CHAPTER  III 


MORRISON'S  METHOD  FOR  NOISE  REMOVAL  ALONE 

Morrison's  iterative  method  of  noise  removal/  or 
Morrison's  smoothing,  is  a technique  in  which  the  first 
iteration  smoothes  the  data,  and  which  with  each  subsequent 
iteration  restores  the  data  to  the  original,  except  for  the 
removal  of  incompatable  noise,  upon  convergence  of  the 
method,  Ioup(1968) . 

For  this  work  Morrison's  noise  removal  is  applied  in  a 
simulation  to  noise  added  data  for  the  determination  of 
optimum  use  of  the  method. 

The  function  and  transform  domain  representations  of 
Morrison's  smoothing  are  as  follows  (Ioup,  1968) : 


Function  domain: 

h^  = h * g 

hn  - *>„-!  + 'h  ' hn-l1  * t > 1 

Transform  domain: 

ni  = H G 

Hn  =Hn-l  + tH  - Hn.].]  G ,n  > 1 

or 
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70 


Hn  = [1-(1-G)n]  H 

For  the  study  undertaken  in  the  present  chapter  g is 
one  of  the  gaussian  impulse  response  functions;  h,  hereupon 
denoted  by  hp,  is  the  corresponding  data  set,  defined  in 
Chapter  II,  with  noise  added;  and  hn  is  the  smoothed  and/or 
restored  result. 

Detailed  discussions  of  the  conditions  that  assure 
convergence  are  outlined  by  Ioup(1968)  and  Wr ight ( 1980) . 
Briefly,  convergence  is  assured  if  l-G(s)  < 1,  or  if  G(s)  - 

0. 


It  should  be  noted,  that  since  the  narrow  response  has 
a wider  frequency  spectrum  than  does  the  wide  gaussian,  for 
a given  s value  [ 1- ( 1-G (s) ) n]  is  a number  closer  to  one  for 
any  n for  the  narrow  case,  and  Morrison's  noise  removal 
converges  faster. 

Morrison's  method  may  be  used  for  noise  removal  alone, 
or  noise  removal  prior  to  deconvolution.  The  work  in  this 
chapter  concerns  a statistical  study  of  the  optimum  use  of 
Morrison's  technique  for  noise  removal  alone.  The 
application  for  deconvolution  is  discussed  in  Chapter  IV. 

Morrison's  applied  to  noise  added  data,  hp,  restores 
both  signal  and  noise  with  each  iteration.  In  the 
restoration  process  very  little  distinction  can  be  made 
between  the  restoration  of  noise  and  the  restoration  of 
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signal  except  in  those  frequency  regions  where  one 
significantly  dominates  the  other. 

It  has  been  shown  by  Wright (1980)  that  the  best 
approximation  of  the  data,  h,  is  obtainable  by  termination 
of  the  iterations  before  convergence  of  the  method.  At  this 
optimum  number  of  iterations  there  results  the  most 
favorable  trade  off  between  the  restoration  of  noise  and 
resolution  of  signal. 

One  would  expect  that  the  optimum  number  of  iterations 
should  increase  monotonically  as  the  noise  level  of  the  data 
to  be  restored  is  decreased.  Since  there  is  less  noise  to 
obscure  the  restoration,  a greater  number  of  Morrison  s 
iterations  may  be  performed  to  obtain  increased  resolution 
of  the  signal  before  noise  distorts  the  result. 

In  previous  studies  Wright(1980)  and  Ioup(1981) , and 
Ioup  and  Ioup(1981) , developed  a methodology  for  optimum  use 
of  Morrison's  noise  removal.  An  algorithm  was  developed  for 
applying  Morrison's  method,  as  was  a procedure  to  add 
ordinate-dependent  and  constant  gaussian  distributed  noise 
to  the  data  h.  The  signal-to-noise  ratio  (SNR) , which  is 
the  ratio  of  the  maximum  ordinate  value  of  h to  the 
root-mean-square  (RMS) , or  standard  deviation,  of  the  noisy 
data,  was  used  as  the  measure  to  characterize  the  level  of 
noise  added  to  the  data.  These  developments  are  used  for 
this  study. 
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signal  except  in  those  frequency  regions  where  one 
significantly  dominates  the  other. 

It  has  been  shown  bv  Wright (1980)  that  the  best 
approximation  of  the  data,  h,  is  obtainable  by  termination 
of  the  iterations  before  convergence  of  the  method.  At  this 
optimum  number  of  iterations  there  results  the  most 
favorable  trade  off  between  the  restoration  of  noise  and 
resolution  of  signal. 

One  would  expect  that  the  optimum  number  of  iterations 
should  increase  monotonicallv  as  the  noise  level  of  the  data 
to  be  restored  is  decreased.  Since  there  is  less  noise  to 
obscure  the  restoration,  a greater  number  of  Morrison  s 
iterations  may  be  performed  to  obtain  increased  resolution 
of  the  signal  before  noise  distorts  the  result. 

In  previous  studies  Wright(1980)  and  Ioup(1981) , and 
Ioup  and  Ioup(1981) , developed  a methodology  for  optimum  use 
of  Morrison's  noise  removal.  An  algorithm  was  developed  for 
applying  Morrison's  method,  as  was  a procedure  to  add 
ordinate-dependent  and  constant  qaussian  distributed  noise 
to  the  data  h The  signal-to-noise  ratio  (SNR) , which  is 
the  ratio  of  the  maximum  ordinate  value  of  h to  the 
root-mean-square  (RMS) , or  standard  deviation,  of  the  noisy 
data,  was  used  as  the  measure  to  characterize  the  level  of 
noise  added  to  the  data.  These  developments  are  used  for 


this  study. 
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The  data  studied  have  SNR“*s  of  approximately  2 through 
1000,  and  enough  data  sets  are  optimized  for  each  SNR  so 
that  the  result  has  statistical  significance. 


Noise  Addition  Procedure 

The  procedure  for  adding  constant  gaussian  noise,  i.e., 
noise  having  a constant  standard  deviation  at  each  point,  is 
as  follows: 


hp(I) 


* 6)  * (NSF)1/2  + h(I) 


3 


where  NSF , the  noise  scale  factor,  is  chosen  to  vary  the 
magnitude  of  the  noise  and  thus  the  SNR;  and  A is  a random 
number  between  zero  and  one  generated  by  a system  subroutine 
(Hamming,  1973)  . The  index  I denotes  each  discrete  data 

element. 

For  addition  of  ordinate-dependent  qaussian  noise, 
i.e.,  noise  having  an  ordinate  dependent  standard  deviation, 
the  procedure  is: 


hp  (I) 


13. 


a. 

•-/  3 


6)  * 


(NSF*h(I) ) 1/2  + h(I) 


The  only  difference  from  the  constant  case  is  that  the 
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tandard  deviation  of  the  noise  added  is  proportional  to 
(h(I) ) 1//2.  Figures  (3.1)  and  (3.2)  show  data  of  SNR  2 for 
the  narrow  gaussian  case  with  constant  and 
ordinate-dependent  noise  added,  respectively. 

In  the  procedure  for  adding  noise  any  negative  hp(I)  is 
set  positive  to  keep  the  data  set  non— negative  since  the 
object  of  the  study  is  to  consider  onlv  such  data.  Also, 
for  the  ordinate  data  for  any  h(I)  less  than  .0000001 
(NSF*h (I) ) is  set  equal  to  (NSF* . 0000001)  before  noise  is 

added. 

As  mentioned  previously,  the  SNR  is  used  as  the  measure 
of  noisiness  of  the  data  sets,  and  as  is  evident  from  the 
noise  addition  procedures,  the  SNR  is  inversely  proportional 
to  the  square  root  of  the  NSF. 

Constant  noise  case: 

SNR=h(max)/(  (l/M)2[h(I)-(  (lA.-6)  ,*  (NSF)  1/2+h  (I)  )1  2) 1/2 

i*l  j-i  J L 

=h  (max)  (M)  1/2/(  (NSF) 1//2  £ [ It  A .-6]  2) 1/2 

1=1  3 

SNR  1/  (NSF)  1/2 

Ordinate  noise  case: 

SNR=h(max)/(  (l/M)£[h(I)-(  (^A.-6)T*  (NSF*h (I)  ) 1/2+h (I)  ] 2) 1/2 

I--/  j-i  J 1 
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'h(max)  (M)  1/2/(  (NSP)  (^A.,-6)  T * (h(I)  ) 1//2]  2) 1^2 

Za(  j*<  J 1 


SNR  «<  1/  (NSF)  1'/2 


A larger  NSF  corresponds  to  data  having  a higher  noise 
level. 

Since  a given  NSF  produces  a statistically  distributed 
range  of  SNR  values  uDon  repeated  use.  something  must  be 
done  to  limit  the  SNR  values  to  a small  neighborhood  about 
the  mean  SNR  for  a given  NSF.  The  approach  used  here  is  to 
add  noise  100  times  to  hf  and  calculate  an  average  SNR, 
AVESNR,  and  standard  deviation,  SDSNR,  for  the  100  cases. 
The  SNR  of  the  data  sets  to  be  optimized  will  be  confined  to 
a range  of  plus  and  minus  one-half  SDSNR  of  AVESNR. 

Plots  of  AVESNR  versus  1/(NSF)1//2  are  shown  in  figures 
(3.3)  through  (3.6).  Figures  (3.3)  and  (3.4)  are  of  the 
narrow  gaussian  ordinate— dependent  and  constant  noise  cases, 
respectively  and  figures  (3.5)  and  (3.6)  are  the  wide 
gaussian  ordinate  and  constant  cases.  All  plots  show  a 
nearly  linear  relationship  between  AVESNR  and  1/(NSF)^/2 
The  slopes  of  the  lines  for  the  constant  and  ordinate  noise 


cases  are  as  follows: 
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Constant  noise  case: 


Slope  = ( (M)1/2h(max)/100)  [JL  Bj]  , 

J *1 

where  B = 1/  ( £(J^A.-6)*  - ) 1/2 
J 2? i J 

Ordinate  noise  case: 


Slope  = ( (M)  1//2h  (max) /100)  [ £.C_]  , 

T»l  u 

/A  12-  1/971/2 

where  CT  = 1/  ( k ( (£  A .-6)  * (h  (I) ) ^/z)  z w 
J X-.,  y-t  J * J 


The  terms  in  brackets  are  esentially  constant  because  of  the 
large  number  of  noise  additions,  and  M is  the  number  of 
points  of  a data  set.  A user  need  only  nick  out  a NSP  from 
the  plots  for  a desired  AVESNR. 

As  mentioned,  Morrison's  method  is  applied  to  data  sets 
having  SNR's  of  about  2 to  1000  . A look  ahead  to  figures 
(3.7)  and  (3.23)  shows  that  the  rate  of  change  of  the 
optimum  iteration  number  and  the  error  improvement  with 
respect  to  SNR  is  much  greater  for  the  relatively  low  SNR's. 
For  this  reason  more  data  points  are  required  in  the  low  SNR 
region  so  as  not  to  lose  too  much  information. 
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A procedure  of  first  calculating  an  AVESNR  of  about  2 , 
using  the  appropriate  NSF,  then  dividing  the  NSF  by  2 after 
each  AVESNR  is  calculated  until  an  AVESNR  of  about  1000  is 
attained,  works  quite  well  in  calculating  an  effective  range 
of  average  SNR^s. 

Two  error  measures  are  employed  in  this  ootimization. 
These  are  based  on  minimization  of  (a)  the  absolute  error 
per  point,  and  (b)  the  root-mean-square  error,  RMS,  between 
h and  hn.  These  measures  are  referred  to  as  the  LI  and  L2 
norms,  respectively. 


Convergence  Criteria 

The  convergence  criterion  applied  in  the  ootimization 
terminates  the  iterations  when  a fractional  difference,  DF1, 
or  an  absolute  difference  , DF2,  between  the  error  at 
successive  iterations  is  less  than  .0001. 


Fractional  difference: 


DF1  = [ e ( i-1) -e ( i)  /e(i-l)]  < .0001 


Absolute  difference: 
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DF2  = [ e ( i-1)  -e  (i)  ] < .0001 

where  i denotes  the  iteration  number  of  the  current  test. 

Error  values  are  in  general  higher  for  the  lower  SNR 
cases,  so  that  two  convergence  measures  are  employed  so  as 
not  to  favor  the  larger  or  smaller  errors  over  the  complete 
SNR  range.  The  fractional  difference  criterion  results  in 
faster  convergence  for  the  larger  errors,  and  for  smaller 
errors  the  absolute  difference  criterion  gives  convergence 
more  rapidly.  For  verv  low  SNR's,  approximately  2 to  15 
depending  on  the  width  of  the  gaussian  response  and  the 
noise  type  used,  it  is  believed  that  optimization  occurrs  at 
an  error  minimum  rather  than  convergence  of  error. 

Choosing  a suitable  convergence  criterion  is  somewhat 
subjective  as  a preference  for  reduction  in  noise  or 
resolution  of  signal  comes  into  play.  But  as  this  is  a 
statistical  study  meant  to  make  the  selection  of  the  optimum 
number  of  Morrison's  iterations  more  routine  a convergence 
criterion  is  chosen  which  allows  optimum  error  improvement 
in  combination  with  results  consistent  with  expected 
behavior.  A useful  selection  also  avoids  a variance  in 
iteration  number  so  wide  as  to  preclude  user  confidence  in 
the  selection  of  a iteration  number. 
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The  choice  of  .0001  as  the  convergence  value  was 
determined  experimentally  as  test  results  were  calculated 
using  stronger  and  weaker  values.  Using  a stronger  value, 
.001,  caused  convergence  to  occur  to  quickly,  as  the  number 
of  iterations  were  lower  and,  more  importantlv,  the  error 
improvement  was  not  as  substantial.  Using  a weaker  value, 
.00001,  resulted  in  higher  iteration  numbers,  but  the 
improvement  in  error  was  not  significantly  better  and  the 
results  of  optimum  iteration  number  versus  SNR  did  not  show 
as  consistent  a monotonically  increasing  behavior  as  the  SNR 
increased.  Also,  the  standard  deviations  in  iteration 
numbers  were  significantly  larger.  Using  no  convergence 
criterion  resulted  in  even  less  consistent  data,  and  again 
not  a significant  improvement  in  error. 


Optimization  Procedure 


The  method  for  determining  optimum  average  iteration 
number  is  to  calculate  AVESNR  and  SDSNR  as  previously 
outlined,  and  to  continue  adding  noise  for  each  SNR  until 
100  data  sets  having  SNR's  that  fall  within  plus  and  minus 
one-half  SDSNR  for  each  AVESNR  are  stored.  From  these  100 
data  sets  new  averages,  AVSNR2 , standard  deviations,  SDSNR2 , 
and  maximum  and  minimum  SNR's,  MXSNR  and  MNSNR,  that  fall 
within  the  one-half  SDSNR  range  are  calculated.  These 
values  are  listed  in  tables  (3.1)-(3.8)  for  both  gaussians. 
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and  both  noise  types,  and  on  all  plots  versus  AVSNR2  the 
confidence  limits,  MNSNR  and  MXSNR,  of  AVSNR2  are  given. 
The  NSF's  used  in  calculating  the  average  SNR's  are  listed 
in  the  tables.  Having  data  sets  with  SNR's  very  close  to  a 
mean  value,  AVESNR,  gives  highly  reliable  results  in 
determining  the  average  optimum  iteration  number  for  each 
AVSNR2 . 

Morrison's  noise  removal  is  applied  to  the  data  sets 
and  error  is  tested  after  each  iteration  by  comparing  the 
restored  result  to  the  noise— free  h defined  in  Chapter  II. 
The  100  optimum  iteration  numbers  for  each  AVSNR2  are 
stored,  and  averages  of  iteration  number  are  calculated, 
AVITNM,  along  with  their  standard  deviations,  SDITNM,  and 
maximum  and  minimum  iteration  numbers,  MXIT  and  MNIT.  These 
values  are  listed  in  tables  (3.9) - (3 .16) . 

Figures  (3.7) -(3.22)  show  AVITNM  versus  AVSNR2  and 
AVITNM  versus  the  natural  log  of  AVSNR2  for  both  the  narrow 
and  wide  gaussians,  LI  and  L2  norms,  and  * constant  and 
ordinate-dependent  noise  tvpes.  Standard  deviations  of 
iteration  number  are  given  on  the  semilog  plots. 

In  the  calculation  of  the  average  improvement  in  error 
at  each  AVSNR2 , the  ratio  of  the  error  after  to  the  error 
before  applying  Morrison's  method  is  determined  for  each  of 
the  100  data  sets.  The  averages  of  each  of  the  100  ratios 
are  calculated,  AVERNM,  along  with  their  standard 
deviations  SDERNM,  and  their  maxima  and  minima,  MXER  and 
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MNER.  Tables  (3.17)-(3.24)  list  these  values. 

Plots  of  AVERNM  versus  AVSNR2  and  AVERNM  versus  the 
natural  log  of  AVSNR2  are  shown  in  figures  (3 . 23) - (3 . 38)  . 
Standard  deviations  of  error  improvement  are  included  on  the 
semilog  figures. 

In  examining  the  data,  figures  and  tables,  one  can  note 
that  the  confidence  limits  given  by  the  average  SNR's, 
standard  deviations,  and  MNSNR  to  MXSNR,  are  larger  for  the 
ordinate  noise  data  than  the  corresponding  constant  noise 
result.  This  is  a consequence  of  the  noise  types.  There  is 
more  of  a variance  in  the  noise  per  point  at  large  ordinates 
in  the  ordinate  noise  case  because  for  each  data  point  the 
noise  is  weighted  by  the  square  root  of  the  ordinate  value 
of  h. 


The  width  of  the  SNR  error  bars  shown  on  the  semilog 

figures  does  not  correspond  to  the  actual  linear  spread  of 
SNR  values,  as  the  natural  loq  is  beinq  plotted.  The  reader 

can  refer  to  the  values  listed  in  the  tables  or  on 
corresponding  figures  for  easier  interpretation,  unless  one 
has  an  intuitive  feel  for  the  properties  of  logarithms  or 
does  a logarithm  calculation. 
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Narrow  Gaussian  Iteration  Results 

Results  of  the  narrow  gaussian  study  (examine  figures 
(3 . 7) - (3 . 14)  or  tables  (3.9)  and  (3.12))  show  a nearly 
monotonic  increase  in  average  iteration  number,  AVITNM,  as 
the  average  SNR,  AVSNR2,  increases.  However  for  very  low 
AVSNR2 ”* s , 2 and  3 of  the  ordinate  result,  the  AVITNM' s show 
a departure  from  this  behavior,  as  the  extremely  high  noise 
level  for  this  SNR  region  is  usually  sufficient  to  cause 
termination  of  iterations  after  one  smoothing  iteration. 
For  AVSNR2  135  and  190  of  the  ordinate  L2  and  constant  Ll 
results,  respectively,  there  is  a slight  decrease  in  AVITNM. 
It  is  believed  that  the  dip  in  iteration  number  for  both 
cases  occurred  in  the  SNR  region  where  the  absolute 
difference  convergence  criterion  became  effective.  A slight 
weakening  of  this  criterion  would  result  in  slightlv  higher 
AVITNM' s and  strict  monotonically  increasing  behavior  for 
the  region  in  question.  Also,  at  very  high  AVSNR2  values 
for  both  the  Ll  and  L2  ordinate  result  and  the  constant  L2 
case  there  is  some  minor  fluctuation  in  average  iteration 
number.  Since  the  percent  difference  between  average 
iteration  numbers  is  minimal  and  the  restored  result  very 
good  for  this  SNR  region,  this  behavior  is  of  little 

concern. 

Both  the  Ll  and  L2  norm  results  of  the  ordinate  and 
constant  noise  cases  show  a very  raoid  increase  in  AVITNM 
from  AVSNR2  3 through  94  and  2 through  130,  respectively. 
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The  increase  is  1 to  39  and  1 to  35  AVITNM'*  s for  the  LI  and 
L2  ordinate  cases,  and  1.5  to  38  and  1 to  38  AVITNM  s for 
the  LI  and  L2  constant  results,  respectively. 

There  is  a slight  decrease  in  the  rate  of  AVITNM 
increase  beginning  at  AVSNR2"s  33  and  46  for  the  ordinate 
and  constant  cases.  This  behavior  will  be  magnified  when 
the  error  improvement  results  are  analyzed  as  the  rate  of 
decrease  in  error  improvement  becomes  slower  for  this  AVSNR2 
region.  A leveling  off  of  the  rate  of  increase  of  AVITNM 
with  respect  to  AVSNR2  occurrs  in  the  AVSNR2  regions  95 
through  545  , and  130  through  530  for  the  ordinate  and 
constant  results, respectively.  The  AVITNM"s  for  the  Ll  and 
L2  ordinate  result  are  53  and  45,  respectively,  at  AVSNR2 
545,  and  for  the  Ll  and  L2  constant  result  are  42  and  45  at 
AVSNR2  530.  Examination  of  the  average  iteration  curves 
shows  that  this  leveling  off  region  is  not  well  defined  for 
all  cases,  and  the  leveling  off  is  generally  more  abrupt  for 
the  constant  Ll  curve.  For  high  AVSNR2'*s  the  curves  have 
leveled  off  considerably,  as  for  this  low  noise  level  region 
the  iterations  may  be  continued  until  a very  accurate 
restored  result  is  obtained. 

By  comparing  the  iteration  results  listed  here  with 
those  calculated  using  no  convergence  criterion,  it  is 
determined  that  the  fractional  difference  convergence 
criterion  begins  to  affect  the  ordinate  noise  Ll  and  L2  norm 
results  at  AVSNR2  8.8.  The  convergence  criterion  becomes 
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effective  at  AVSNR2's  4.3  and  11.8  for  the  constant  noise  Ll 
and  L2  cases,  respectively. 


Wide  Gaussian  Iteration  Results 

The  wide  gaussian  ordinate-noise  results,  figures 
( 3 . 15) -(3.18)  or  tables  (3.13)  and  (3.14),  show  a rapid 
increase  in  AVITNM  from  AVSNR2  1.9  through  66,  an  increase 
of  1.7  to  61  and  1 to  59  iterations  for  the  Ll  and  L2  norms. 
It  is  believed  that  the  absolute  difference  convergence 
criterion  takes  effect  at  AVSNR2  90  for  both  Ll  and  L2  norm 
types,  where  the  AVITNM's  are  62  and  63.  The  slopes  of  the 
curves,  or  rates  of  change  of  AVITNM's,  then  graduallv 
decrease,  until  for  high  AVSNR2  the  curves  are  relatively 
flat  with  maximum  AVITNM^s  of  115  and  122  at  AVSNR2  1088  for 
the  Ll  and  L2  results,  respectively. 

The  Ll  and  L2  results  for  the  wide  gaussian 
constant-noise  cases,  given  in  figures  (3 . .19)  — (3 . 22)  or 
tables  (3.15)  and  (3.16),  demonstrate  a rapid  increase  in 
AVITNM  from  AVSNR2  2.2  through  92,  an  increase  of  2.6  to  72 
and  1.4  to  72  average  iterations  for  the  Ll  and  L2  norms. 
Where  there  is  a slight  buckle  in  the  curves  at  AVSNR2  133, 
the  AVITNM's  are  74  and  75  for  the  Ll  and  L2  norms, 
respectively.  For  these  AVSNR2  the  absolute  difference 
convergence  criterion  begins  to  affect  the  result.  Then 
there  is  a gradual  decrease  in  the  slopes  of  the  curves  as 
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AVSNR2  increases,  with  maximum  AVITNM^s  of  112  and  120  at 
AVSNR2  1084  for  the  LI  and  L2  norms,  respectively. 

The  fractional  difference  convergence  criterion  becomes 
effective  immediately  for  all  wide  qaussian  results. 
Perhaps  a better  experimentation  procedure  would  have  been 
to  weaken  this  criterion  slightly  for  the  very  low  SNR 
region  and  allow  optimization  as  an  error  minimum  is 
achieved.  Another  procedure  which  would  have  been  useful  in 
the  analysis  of  results  would  be  to  set  a marker  or  flag  to 
indicate  which  termination  method,  i.e.,  error  minimum, 
fractional,  or  absolute  difference  convergence,  was  used  in 
the  optimization  at  each  AVSNR2 . This  would  have  made 
certain  of  the  SNR  regions  where  each  of  the  criteria  was 
used,  and  would  allow  a more  complete  understanding  of  the 
behavior  of  all  results.  Also,  it  is  possible  an  even  more 
suitable  choice  of  convergence  criteria  could  have  been  made 
with  the  use  of  this  information,  with  perhaps  different 
criteria  for  different  SNR  regions  for  each  case. 

It  should  be  noted  that  in  the  analysis  of  convergence 
criteria  given  thus  far,  it  is  likely  that  once  one 
criterion  takes  effect  it  is  the  onlv  criterion  used  until 
the  next  one  becomes  effective.  Some  of  the  analysis  to 
follow  makes  this  general  assumption. 
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Noise  Spectra 

Upon  observation  of  figure  (3.39),  a plot  of  the 
or dinate— dependent  and  constant  noise  superimposed,  both  of 
SNR  2 for  the  narrow  gaussian  case,  it  is  noticed  that  for 
constant  noise  the  magnitudes  of  the  oscillations  about  the 
noise  free  level  remain  relatively  constant  for  the  entire 
data  region.  The  ordinate-dependent  noise  tends  to  more 
violent  oscillations  in  regions  where  the  ordinate  values  of 
the  data  are  largest,  and  lesser  magnitude  oscillations 
where  h is  smallest.  Thus  the  frequency  distributions  of 
the  spectra  of  the  ordinate  and  constant  noise  types  differ. 
Large  magnitude  oscillations  about  the  no-noise  level  at 
each  data  point  correspond  to  large  magnitude  high 
frequencies. 

The  ordinate  noise  perhaps  has  a bimodal  frequency 
distribution,  with  regions  of  large  magnitude  low  and  high 
frequencies.  The  latter  possibility  arises  from  the  erratic 
behavior  at  large  ordinate  data.  Since  the 
ordinate-dependent  noise  has  a trend  following  the  data,  it 
is  also  expected  to  have  a relativelv  large  low  frequency 
component.  There  is  possibly  a more  even  distribution  of 
the  magnitudes  of  frequencies  for  the  constant  noise. 
However,  the  exact  distributions  are  not  known  without 
examining  the  transform  domain  representations  of  the  two 
noise  types.  This  will  be  done  in  a future  study. 
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The  difference  in  frequency  distributions  should  be 
less  evident  for  the  wide  gaussian  case,  as  there  is  a 
lesser  variation  in  the  ordinate  values  of  the  data.  This 
implies  that  there  is  still  a bimodal  frequency  distribution 
for  the  wide  gaussian  ordinate  noise,  but  the  low  and  high 
frequency  regions  of  large  magnitude  are  less  pronounced 
than  in  the  narrow  gaussian  case. 

Examination  of  the  average  iteration  results  shows  that 
there  are  differing  AVITNM's  between  the  LI  and  L2  norm 
results  for  the  same  gaussian  and  noise  tvpes.  There  are 
also  different  iteration  results  between  the  ordinate  and 
constant  noise  cases  for  the  same  gaussian  and  norm 
optimizations.  These  differences  in  AVITNM  are  of  different 
degree  and  magnitude  over  differerent  AVSNR2  regions. 

For  the  case  where  the  LI  and  L2  norm  AVITNM's  are 
different,  the  difference  can  probably  be  attributed  to  the 
L2  norm  favoring  the  reduction  of  larger  errors  at  each  data 
point,  as  the  L2  norm  gives  weight  to  larger  magnitude 
restored  noise  by  squaring  the  error.  The  difference 
between  AVITNM's  for  different  noise  types  is  a consequence 
of  the  differing  frequency  distributions  of  the  ordinate  and 
constant  noise. 

As  previously  alluded  to,  the  wide  gaussian  results 
have  higher  iteration  numbers  than  the  corresponding  narrow 
gaussian  results  because  the  convergence  of  Morrison's  noise 
removal  is  faster  for  the  narrow  case. 
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Examinimg  the  average  iteration  semilog  figures,  or  the 
corresponding  tables,  for  both  the  narrow  and  wide  gaussian 
cases,  one  observes  a region  of  maximum  standard  deviation 
values,  SDITNM's,  which  occurrs  in  the  middle  to  upper 
middle  range  of  AVSNR2's.  At  high  noise  levels,  or  low  SNR 
values,  noise  is  restored  quickly  for  all  cases  and  there  is 
little  chance  for  a wide  variance  in  iteration  number.  For 
high  SNR  values  the  noise  level  is  low  for  all  data  sets  and 
iterations  can  be  continued  until  a very  good  approximation 
of  the  signal  is  obtained.  But  for  the  intermediate  range 
of  SNR's,  noise  is  distributed  more  unevenly  throughout  the 
data,  and  in  the  restorative  process  the  variation  in 
optimum  iteration  is  greatest. 

It  is  noted  that  the  standard  deviations  of  the 
AVITNM's  for  both  the  narrow  and  wide  cases  are  in  general 
larger  for  the  ordinate  results.  This  is  probablv  due  to 
the  relative  uneveness  of  the  frequency  distribution  of  the 
ordinate-dependent  noise. 


Error  Improvement 

In  the  examination  of  the  plots  of  average  error  ratio, 
AVERNM , versus  AVSNR2 , figures  ( 3 . 23) - (3 . 38)  and  tables 
(3 . 17) - (3 . 24) , it  should  be  noted  that  a lesser  value 
corresponds  to  a greater  improvement  in  error  with  the 
application  of  Morrison's  noise  removal.  An  average  error 
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ratio,  AVERNM , greater  than  one  implies  that  there  is  no 
improvement  of  error  in  the  restored  result.  For  olots 
where  there  is  a range  of  AVSNR2  for  which  no  error 
improvement  is  achieved,  a line  equal  to  one  is  detailed  on 
the  graph.  For  semi log  plots  of  AVERNM  where  the  averaqe 
standard  deviation  of  the  error,  SDERNM,  added  to  AVERNM  is 
greater  than  one  for  some  AVSNR2 , a line  equal  to  one  is 
also  plotted  for  easier  interpretation  of  the  results. 

It  should  be  remembered  that,  in  general,  greater 
improvement  in  error  is  expected  after  the  data  is 
deconvolved,  as  Morrison's  method  is  designed  for  noise 
removal  prior  to  deconvolution.  It  will  be  evident  after 
the  results  of  error  improvement  in  Chapter  IV  are  studied 
that  this  is  indeed  the  case.  Where  there  is  no,  or  verv 
little,  error  improvement  in  applying  Morrison's  method  for 
noise  removal  alone,  the  results  will  show  that  after 
deconvolution  there  can  be  significant  error  improvement. 

An  average  error  ratio  of  .8  implies  a 20%  improvement 
of  the  data  with  the  application  of  Morrison's  noise 
removal.  For  this  study  the  percent  error  improvements  are 
calculated  as  follows,  using  .8  error  improvement  as  an 
example: 


ERR  AFTER/ERR  BEFORE  = .8 
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ERR  AFTER  = (.8) ERR  BEFORE 

[ (ERR  BEFORE  - ( . 8 ) ERR  BEFORE) /ERR  BEFORE]  X 100%  = 20% 

From  the  L2  norm  result  additional  information  may  be 
derived,  as  the  SNR  of  the  noise  removed  result  can  be 
calculated: 


L2  = RMS a/RMS b = (h (max) /RMSb) / (h (max) /RMSa) 


= SNRb/SNRa  = .8 


SNRa  = SNRb/ . 8 = (1.25)SNRb 


RMSb  and  RMSa  denote  the  root-mean-square  noise  of  the  data 
before  and  after  Morrison's  method  is  applied,  and  a higher 
SNR  corresponds  to  a lesser  level  of  noise. 

As  one  would  expect,  the  percent  error  improvements  for 
all  results  are  greater  for  data  of  low  SNR,  since  the  noise 
level  is  so  high  for  these  cases  before  the  application  of 
Morrison's.  For  the  AVSNR2  regions  studied,  where  there  is 
a rapid  decrease  in  the  rate  of  error  improvement  with 
respect  to  AVSNR2 , the  noise  levels  chosen  for  the  data  are 
decreasing  rapidly. 
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For  the  ordinate  and  constant  noise  error  results,  for 
both  the  LI  and  L2  norms,  some  of  the  average  error  ratios, 
AVERNM' s,  at  very  low  AVSNR2  values  fluctuate  instead  of 
exhibiting  steadily  increasing  behavior.  This  is  a minor 
inconsistency  as  the  noise  level  is  very  high  for  this  SNR 
region  and  some  oscillation  of  AVERNM  can  be  expectd.  This 
slightly  uneven  behavior  is  also  somewhat  present  for  for 
high  SNR  regions  where  the  noise  level  of  the  data  is  low 
and  the  average  error  improvement  is  very  little.  This 
behavior  is  of  little  concern  as  the  difference  between 
AVERNM' s is  usually  not  more  than  1%,  and  is  often  less. 


Narrow  Gaussian  Error  Results 

The  narrow  case  ordinate  noise  Ll  norm  error  result 
demonstrates  a rapid  decrease  in  error  improvement  from  18% 
to  4%  for  AVSNR2  6.5  through  33.  For  the  ordinate  L2  norm 
case  the  decrease  is  from  29%  to  7%  for  AVSNR2  2 through  33. 
For  both  norms  the  decrease  in  percent  error  improvement 
becomes  less  rapid  from  AVSNR2  33  through  ^4,  as  the  average 
percent  error  improvements  at  AVSNR2  94  are  1%  and  3%  for 
the  Ll  and  L2  norms,  respectively.  This  less  rapid  decrease 
in  error  improvement  corresponds  to  the  slight  decrease  in 
the  rate  of  AVITNM  increase  for  the  same  range  of  AVSNR2's 
mentioned  in  the  iteration  number  analysis.  AVERNM  s for 
AVSNR2's  higher  than  94  tend  to  level  off  with  a small 
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percent  difference  between  AVERNM^s  for  this  SNR  region. 
For  the  Ll  case  the  error  ratio  is  greater  than  one  for 
AVSNR2  values  greater  than  264,  implying  that  there  is  no 
improvement  with  appliction  of  Morrison's  method  for  this 
region. 

Average  error  results  for  the  narrow  constant  case 
exhibit  a relatively  rapid  decrease  in  error  improvement 
from  AVSNR2  8.3  to  46  for  both  Ll  and  L2  norms,  a decrease 
from  6%  to  2%  and  10%  to  2%,  respectively , followed  by  a 
gradually  less  rapid  decrease  to  1%  at  AVSNR2  131  for  both 
norm  results.  It  is  noted  that  there  is  a peak  in  AVERNM  at 
AVSNR2  131  for  the  Ll  data  corresponding  to  the  slight 
jutting  of  the  AVITNM  curve  at  the  same  AVSNR2.  For  higher 
AVSNR2  the  data  levels  off  with  an  error  improvement  of 
approximately  1%  for  all  AVSNR2. 

In  the  analysis  of  the  narrow  gaussian  error  results, 
it  is  noted  that  the  error  improvements  are  not  that  great 

for  the  low  middle  to  middle  SNR  region.  This  is  perhaps 
because  the  noise  level  is  still  high  enough  in  this  region 
to  cause  a termination  of  iterations  before  a very  qood 
approximation  of  the  signal  can  be  obtained;  vet  the  noise 
level  is  not  so  high  that  the  optimum  iteration  result  is  a 
great  improvement  over  the  unsmoothed  data. 
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Wide  Gaussian  Error  Results 

Examination  of  the  wide  gaussian  ordinate  data,  figures 
(3.31)-(3. 34)  , shows  that  the  AVERNM's  oscillate  somewhat 
for  AVSNR2  1.8  through  16  with  maximum  and  minimum  error 
improvements  of  about  44%  and  28%  for  the  LI  norm  result, 
and  50%  and  42%  for  the  L2  data,  for  this  SNR  region.  This 
is  followed  by  a leveling  off  of  AVERNM"s  from  AVSNR2  23  to 
90,  where  the  error  improvements  are  31%  and  35%  at  AVSNR2 
90.  There  is  a general  steady  decrease  in  error  improvement 
for  the  range  of  AVSNR2  higher  than  90,  and  for  very  high 
AVSNR2>s  no  error  improvement  is  achieved. 

The  wide  constant  results,  figures  ( 3 . 35) - (3 . 38)  , show 
oscillation  in  AVERNM  from  AVSNR2  2 through  12,  with  maximun 
and  minimum  error  improvements  of  29%  and  22%  for  the  LI 
norm  data,  and  30%  and  29%  for  the  L2  result.  For  AVSNR2 
higher  than  12  there  is  a monotonic  decrease  in  error 
improvement,  with  AVERNM^s  greater  than  one  at  AVSNR2  1084 
for  both  the  LI  and  L2  results.  AVERNM "s  at  specific  SNR 
values  for  all  results  can  of  course  be  determined  bv 
examining  the  corresponding  tables  or  figures. 

It  should  be  noted  that  for  most  of  the  AVSNR2  range 
the  error  improvements  are  much  greater  for  the  wide 
gaussian  results  than  for  the  corresponding  narrow  gaussian 
case  For  the  higher  SNR  regions,  very  roughly  beginning 
at  AVSNR2  700  and  1000  for  the  Ll  and  L2  ordinate  cases,  and 
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AVSNR2  900  and  1000  for  the  LI  and  L2  constant  results, 
respectively,  the  error  improvement  is  greater  for  the 
narrow  gaussian  result.  The  behavior  of  greater  error 
improvement  for  the  wide  gaussian  is  attributed  to  a much 
slower  and  less  complete  restoration  of  high  frequency  noise 
for  the  wide  case  results,  as  the  wide  case  G(s)  and  H(s) 
are  much  narrower  and  Morrison's  noise  removal  restores 
frequencies  faster  where  G(s)  is  of  larger  magnitude.  Thus 
where  the  wide  case  error  improvement  is  better,  much  more 
of  the  high  frequency  noise  is  not  present  in  the  restored 

result. 

For  the  high  AVSNR2  region  where  the  error  improvement 
for  the  narrow  case  is  somewhat  better,  the  behavior  is 
believed  to  be  a consequence  of  the  noise  level  being  low 
everywhere  and  G(s)  wider  for  the  narrow  gaussian.  Thus  a 
more  complete  restoration  of  the  signal  can  be  obtained 
before  noise  terminates  the  iterations. 

It  should  be  noted  that  although  the  results  for  noise 
removal  alone  show  that  in  general  the  wide  gaussian  case 
restoration  is  more  accurate  (one  can  examine  figures 
(3 . 40) - (3 . 66)  of  restored  data  for  the  wide  and  narrow  cases 
at  selected  SNR  values) . This  will  not  be  the  case  for  the 
deconvolution  study  analyzed  in  Chapter  IV,  as  the 
narrowness  of  the  wide  gaussian  transform  G(s)  will  severely 


affect  the  deconvolved  result. 
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The  percent  error  improvements  for  the  ordinate  noise 
results  are  in  general  greater  than  the  corresponding 
constant  noise  data.  This  can  be  attributed  to  the 
differing  frequency  distributions  of  the  ordinate  and 
constant  noise  types,  since  Morrison”*s  noise  removal 
restores  frequencies  the  quickest  where  G(s)  is  of  greatest 
magnitude.  Thus  much  of  the  large  magnitude  high  frequensy 
noise  is  not  restored  for  the  ordinate  noise  optimization. 


The  values  of  the  standard  deviations  of  the  AVERNM's 
do  not  vary  greatly  over  the  total  AVSNR2  region  for  each 
result.  The  only  departure  from  this  behavior  is  for  the 
narrow  ordinate  LI  case,  where  beginning  at  about  AVSNR2  70, 
the  sizes- of  the  standard  deviations  tend  to  decrease  as  the 
SNR"*s  increase. 


The  program  used  to  calculate  the  results  given  in  this 
chapter  is  listed  in  the  appendix.  Computer  documentation 
is  also  included. 
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CHAPTER  IV 


MORRISON'S  METHOD  PRIOR  TO  DECONVOLUTION 


This  chapter  Is  a study  of  the  optimum  use  of 
Morrison's  noise  removal,  or  smoothing,  prior  to 
deconvolution.  After  each  smoothing  iteration  is  applied  to 
the  two  noise-added  data  sets  analyzed  in  Chapter  III,  the 
data  sets  are  deconvolved  by  convolution  with  the  two  most 
accurate  inverse  filters  calculated  in  Chapter  II.  The 
deconvolved  results  are  compared  to  the  known  input  f after 
each  iteration  and  an  optimum  iteration  number  chosen  when 
either  an  error  minimum  or  suitable  convergence  of  error  is 
realized. 


Noise  removal  and  deconvolution  are  applied  to  data 
sets  having  roughly  the  same  average  SNR  values,  AVSNR2,  as 
those  examined  previously,  where  enough  cases  for  each  SNR 
are  included  to  give  the  result  statistical  significance. 
As  in  the  noise  removal  study,  plots  of  average  optimum 
iteration  number  and  average  error  improvement  versus  AVSNR2 
are  produced,  along  with  tables  listing  accurate  average 
values  and  confidence  limits  of  all  quantities  considered. 


The  results  will  provide  an  experimentalist  having 
similar  data  with  guidelines  which  will  allow  a more 
automatic  selection  of  the  optimum  number  of  Morrison's 


186 


187 


iterations  prior  to  deconvolution.  As  will  be  seen,  ootimum 
use  of  Morrison's  noise  removal  for  noise  removal  alone  does 
not  necessarily,  though  it  may,  corresDond  to  optimum  use 
prior  to  deconvolution. 

There  are  two  reasons  for  this.  The  first  is  that 
deconvolution  amplifies  noise  selectively.  Specifically,  in 
the  region  of  the  transform  domain  where  the  response 
function,  G(s),  is  smallest,  noise  is  amplified  the  most. 
The  transform  domain  representation  for  deconvolution  of 
noise  added  data  is  as  follows: 

F (s)  = H(s)/G(s)  + N(s)/G(s) 

where  N(s)  is  the  spectrum  of  the  noise,  n(x).  As  can  be 
seen,  dividing  by  small  magnitude  G(s)  greatly  increases  the 
magnitude  of  the  noise  term.  Applying  Morrison's  noise 
removal,  which  is  an  overall  noise  removal  technique,  for 
noise  removal  alone  will  not  necessarily  minimize  noise 
resulting  after  division  by  G(s) . Thus  the  results  of  the 
two  applications  of  Morrison's  method  may  differ. 

The  second  problem  has  to  do  with  the  fact  that 
Morrison's  noise  removal  consists  of  a single  smoothing 
iteration  followed  by  restoring  iterations  that  will 
ultimately  restore  all  the  signal  and  noise  except  in  the 
regions  of  the  frequency  domain  where  G(s)  is  zero. 
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Deconvolution,  on  the  other  hand,  consists  purely  of 
restoring  the  data  by  removing  the  effect  of  the  response. 
Since  the  compromise  in  optimizing  Morrison's  method  is 
between  resolution  of  signal  and  restoration  of  noise,  and 
the  deconvolution  consists  of  a correction  of  the  signal  for 
the  effect  of  the  response  of  the  system,  the  interolav  in 
the  presence  of  noise  between  the  noise  removal  and  the 
deconvolution  is  a complex  one. 

Results  obtained  in  the  present  chapter  for  optimum  use 
of  Morrison's  prior  to  deconvolution  are  compared  to  similar 
results  for  noise  removal  alone.  Hopefully,  some  insight  is 
gained  as  to  why  similarities  or  differences  exist  in  the 
results  of  the  two  uses  of  Morrison's  method. 


Optimization  Procedure 


The  experimental  procedure  of  optimization  for 
deconvolution  is  similar  to  that  used  for  noise  removal 
alone.  The  same  noise  types,  ordinate  and  constant,  are 
added  to  the  data  in  the  same  manner.  As  in  the  noise 
removal  study,  data  sets  having  SNR's  of  approximately  2 to 
1000  are  created  by  varying  the  noise  scale  factor,  NSF . 
The  method  of  calculating  an  average  SNR,  AVESNR,  and 
standard  deviation,  SDSNR , from  the  100  data  sets  for  each 
NSF  is  the  same  as  in  Chapter  III.  Again  only  data  sets 
having  a SNR  that  is  within  plus  and  minus  one-half  a SDSNR 
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of  the  average,  AVESNR,  are  used  in  optimization.  The 
difference  here  is  that  50  data  sets  are  optimized  for  each 
AVESNR  instead  of  100. 

In  determining  a statistically  reliable  number  of  data 
sets  to  optimize  for  each  SNR,  test  results  were  calculated 
at  SNR  values  of  2,47,260,  and  1000  using  one-hundred  data 
sets,  and  results  were  not  significantly  different  from 
those  calculated  from  50  sets.  Using  the  lesser  number  has 
the  benefit  of  cutting  the  computer  time  almost  in  half. 

After  each  of  Morrison's  iterations  is  applied  to  the 
data,  the  data  sets  are  deconvolved  by  convolution  with  the 
257  and  129  point  inverse  filter  for  the  narrow  and  wide 
gaussian  cases,  respectively.  The  deconvolved  result  is 
then  compared  to  the  known  input,  f,  with  both  the  Ll  and  L2 
norms  used  previously.  The  error  in  the  deconvolution  is 
stored,  then  compared  to  the  error  of  the  result  from  the 
succeeding  iteration.  As  already  mentioned,  the  iterations 
are  terminated  at  error  minimum  or  by  a convergence 
criterion  to  be  described. 

A complete  study  to  determine  if  only  one  error  minimum 
exists  over  the  complete  range  of  iterations  and  SNR  s used 
was  not  attempted.  Tests  were  carried  out  for  selected  low, 
middle,  and  high  SNR  values.  After  the  error  minimum  was 
reached,  the  iterations  were  continued  past  the  minimum  with 
the  result  that  error  increased  monotonically  as  iteration 
number  increased.  This  result  allows  termination  of 
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iterations  as  the  minimum  is  located. 

The  convergence  formulas  are  the  same  fractional  and 
absolute  differences  applied  in  Chapter  III*  The 
convergence  values  are  different , however.  For  the  narrow 
case , fractional  and  absolute  differences  of  *001  and  .0005, 
respectively,  are  used.  For  the  wide  case,  .0005  and  .005 
are  used.  A process  of  comparing  results  calculated  at 
selectd  SNR's  using  a range  of  convergence  values  was 
performed.  The  convergence  criteria  were  chosen  to  allow 
the  result  to  correspond  to  the  expected  behavior  of 
increasing  optimum  iteration  number  as  the  SNR's  of  the  data 
are  increased,  without  having  iteration  confidence  limits  so 
large  as  to  prevent  reliability  of  the  results.  Also, 
minimization  of  error  is  especially  considered. 

Note  that  the  convergence  criteria  are  stronger  for  the 
deconvolution  optimization  than  for  noise  removal  alone. 
The  stronger  criteria  are  used  because  one  can  expect 
greater  error  in  the  deconvolved  result  than  the  error  in 
the  restored  data  result  for  noise  removal  alone. 


Next,  averages  of  the  optimum  iteration  number,  AVITNM, 
are  calculated  from  the  50  results  for  each  SNR,  along  with 
their  standard  deviation,  SDITNM,  and  the  maximum  and 
minimum  of  iteration  number,  MXIT  and  MNIT.  Also,  the 
average  SNR's,  AVSNR2 , of  the  50  data  sets  within  plus  and 
minus  one-half  SDSNR  of  AVESNR  are  calculated,  and  the 
maximum  and  minimum  within  the  range  chosen. 
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The  improvement  in  error  is  calculated  as  described  in 
Chapter  III,  only  now  the  error  before  the  application  of 
Morrison'*  s smoothing  is  determined  by  comparing  the 
deconvolved  result  to  f.  The  error  after  Morrison  s 
smoothing  is  calculated  by  comparing  the  known  input  f to 
the  deconvolution  performed  at  the  optimum  iteration  number. 

Plots  of  average  optimum  iteration  number,  AVITNM, 
versus  AVSNR2  are  produced, as  are  graphs  of  the  ratio  of 
error  after  to  error  before  application  of  Morrison's  method 
versus  AVSNR2.  Confidence  limits  are  included  on  all  plots. 

Before  an  analysis  of  the  results  obtained,  one  thing 
should  be  noted.  If  the  noise  level  is  high  enough  to  cause 
termination  of  iterations  after  only  one  smoothing 
iteration,  this  means  that  the  original  data,  without 
incompatable  noise,  is  closer  to  the  original  data  f than 
the  result  of  deconvolving  any  restoration  of  Morrison  s 
method.  The  first  smoothing  iteration  broadens  the  data  by 
convolving  with  the  response,  removing  incompatable  noise. 
Deconvolving  this  result  gives  back  the  original  noise— added 
h,  except  for  incompatable  noise.  Thus  Morrison's  method  is 
not  useful  for  this  case. 
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Narrow  Gaussian  Iteration  Results 

Examination  of  the  narrow  gaussian  ordinate  noise 
iteration  results  for  both  LI  and  L2  error  measures,  figures 
(4.1)— (4.4)  and  tables  (4.1)  and  (4.2),  shows  that  the 
average  iteration  number  increases  rapidly  with  respect  to 
AVSNR2  from  AVSNR2  5 through  138.  The  increase  is  1.3  to  39 
and  1.3  to  37  average  iterations  for  the  LI  and  L2  norms, 
resoect ivelv.  For  AVSRN2  below  5 the  noise  level  is  so  high 
that  in  general  only  the  smoothing  iteration  is  performed 
before  noise  causes  an  increase  of  error  in  the 
deconvolution.  For  both  cases  there  is  a slight  dio  in 
average  iteration  number,  AVITNM,  for  AVSNR2  175  to  about  38 
and  35  iterations.  AVITNM  then  increases  rapidly  to  49  and 
46  at  AVSNR2  270.  From  AVSNR2  270  to  1017  the  increase  is 
much  slower  but  monotonic,  an  increase  of  about  10 
iterations  for  both  cases.  The  dip  in  AVITNM  at  AVSNR2  175 
is  likely  at  the  AVSNR2  value  where  the  absolute  difference 
convergence  criterion  becomes  effective.  Usinq  a slightly 
weaker  criterion  would  result  in  a smoother  curve. 

For  the  Ll  and  L2  norm  results  of  the  narrow  constant 
noise  data,  figures  (4.5)  — (4.8)  and  tables  (4.3)  and  (4.4)  , 
there  is  a rapid  increase  in  AVITNM  from  AVSNR2  3 through 
260.  The  increase  is  about  1 to  47  iterations  for  both  norm 
cases.  For  AVSNR2  260  through  1050,  the  number  of 
iterations  levels  off  with  only  a 5 and  6 AVITNM  change  over 
this  AVSNR2  range,  with  a slight  dip  in  iteration  number  at 
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AVSNR2  532.  Further  experimentation  with  the  convergence 
criteria  is  needed  to  know  if  this  dip  in  iteration  number 
was  caused  by  a switch  to  a different  criterion. 

Where  there  is  a rapid  increase  in  iteration  number 
with  respect  to  AVSNR2 , the  noise  levels  chosen  for  the  data 
are  decreasing  rapidly  and  thus  there  is  a rapid  increase  in 
the  number  of  iterations  which  may  be  carried  out  before 
noise  obscures  the  deconvolution.  For  higher  AVSNR2  values 
the  leveling  off  of  iteration  number  is  due  to  the  noise 
level  being  lower  throughout  the  SNR  region,  which  allows 
the  relatively  high  iteration  numbers.  Thus  there  is  less 
change  in  actual  noise  which  could  cause  a wide  variance  in 
average  iteration  number. 


Narrow  Gaussian  Error  Results 

In  discussing  the  error  improvements,  one  can  refer  to 
Chapter  III  for  the  method  of  calculating  the  percent  error 
improvements.  As  shown  in  figures  (4. 9) -(4. 12)  and  tables 
(4.5)  and  (4.6),  error  improvement  for  the  narrow  gaussian 
ordinate  noise  LI  and  L2  cases  decreases  from  75%  to  7.5% 
and  72%  to  7.5%,  respectively,  for  AVSNR2  2 through  95.  For 
AVSNR2  95  through  1017  the  decrease  in  error  improvement  is 
only  6%  and  3%  over  this  SNR  range  for  the  Ll  and  L2  norms, 
respectively. 
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For  the  narrow  constant  LI  and  L2  cases,  figures 
(4. 13) - (4 . 16)  and  tables  (4.7)  and  (4.8),  there  is  a rapid 
decrease  in  error  improvement  from  AVSNR2  2 through  46,  a 
decrease  of  64%  to  8%  and  64%  to  7%  for  the  Ll  and  L2  norms, 
respectively.  For  AVSNR2  higher  than  64  the  error 
improvement  oscillates  somewhat  with  a minumum  and  maximum 
error  improvement  of  5%  and  9%,  respectivelv,  for  the  Ll 
case,  and  a minimum  and  maximum  of  4%  and  9%,  respectively , 
for  the  L2  norm  result. 

The  SNR  region  where  there  is  a rapid  decrease  in  error 
improvement  corresponds  roughly  to  the  region  where  the 
noise  level  is  decreasing  most  rapidly.  For  very  low  SNR 
the  error  in  the  deconvolved  result  before  Morrison  s 
technique  is  applied  is  large,  and  just  a few  iterations 
before  deconvolution  will  greatly  reduce  the  error.  As  the 
noise  levels  chosen  become  less,  the  deconvolutions  applied 
without  Morrison's  smoothing  have  less  and  less  error,  thus 
less  and  less  error  improvement  after  Morrison's  smoothing 
is  applied  is  obtainable.  A greater  error  improvement  at  a 
low  AVSNR2  does  not  mean  that  the  deconvolved  result  is 
better  than  the  deconvolved  result  of  a higher  AVSNR2  case. 
Figures  (4 . 17) - (4 . 34)  show  deconvolved  results  for  the 
narrow  gaussian,  before  and  after  Morrison's  at  selected 


AVSNR2  values. 
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Standard  deviations  of  iteration  number  and  error 
improvement  are  listed  in  the  tables.  The  semilog  plots 
have  standard  deviations  for  the  iteration  and  error  results 
included.  The  largest  standard  deviations  are  for  SNR 
values  where  the  variance  in  magnitude  of  the  noise  added 
per  data  point  for  each  data  set  is  greatest,  and  the  noise 
levels  not  so  high  as  to  cause  rapid  termination  of 
iterations. 

Before  discussion  of  the  behavior  of  the  wide  gaussian 
results,  it  should  be  noted  that  the  Ll  norm  data  for  both 
the  ordinate  and  constant  noise  results  is  not  considered 
reliable.  Comparison  of  the  Ll  and  L2  results  figures 
(4. 35) -(4. 38)  show  AVITNM  versus  AVSNR2  for  the  Ll  and  L2 
cases,  and  figures  (4.39)  and  (4.40)  are  deconvolved  results 
performed  at  the  Ll  and  L2  optimum  for  the  same  SNR  — 
reveals  that  iterations  are  terminated  too  quickly  for  the 
Ll  norm.  Much  more  resolution  of  data  is  obtained  in  the  L2 
case.  The  reason  is  thought  to  be  a consequence  of  the  Ll 
norm  weighting  all  points  equally.  As  the  deconvolved 
result  figures  show,  good  resolution  of  peaks  is  not 
obtainable  for  the  wide  gaussian  deconvolution.  A maximum 
of  about  60  is  all  that  can  be  achieved  for  the  best  case 
data,  and  the  restoration  of  peaks  is  slow.  In  using  the  Ll 
norm  the  slow  improvement  at  the  peaks  is  not  enough  to 
compensate  for  the  increase  in  noise  about  the  baseline  as 
iterations  proceed.  This  noise  is  a consequence  of  the  many 
small  magnitude  high  frecuency  components  in  the  frequency 
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domain  representations  of  the  wide  gaussian,  G(s) , and  the 
data,  H (s) . In  deconvolution  great  amplification  of  noise 
occur rs  where  G(s)  is  small,  and  any  small  changes  where 
H ( s)  and  G(s)  are  small  will  be  large  percentage  changes  in 
the  deconvolved  result.  The  resulting  function-domain 
high-frequency  oscillations  about  the  baseline  have  a 
greater  effect  on  the  Ll  norm  than  the  L2  norm.  Generally 
the  data  analyst  will  accept  an  increase  in  baseline  noise 
for  increased  resolution  for  peak-type  data.  For  the  L2 
norm,  which  emphasizes  the  large  error  at  the  peaks,  the 
restoration  of  the  peaks  is  fast  enough  to  compensate  for 
the  increase  in  error  about  the  baseline.  This  result  of 
the  unreliability  of  the  Ll  norm  results  would  not  be  as 
significant  for  smooth  or  non— peak— type  data,  or  data  with 
less  baseline,  as  there  would  be  less  effect  from  baseline 
noise.  It  would  be  interesting  to  add  more  baseline  data 
points  to  the  narrow  gaussian  deconvolution  optimization  and 
observe  if  the  faster  restoration  of  peaks  would  compensate 
for  the  increase  in  baseline  noise.  * 


Wide  Gaussian  Iteration  Results 

The  wide  gaussian  ordinate  noise  L2  norm  AVITNM  result, 
figures  (4.36)  and  (4.41)  and  tables  (4.9)  and  (4.10)  , shows 
a rapid  increase  in  AVITNM  for  AVSNR2  4.4  through  183,  an 
increase  of  1.2  to  41  average  iterations.  Again  the  higher 
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noise  level  for  lower  AVSNR2's  causes  quick  termination  of 
iterations.  The  iterations  increase  less  rapidly  to  AVSNR2 
376  where  the  AVITMN  is  48,  and  then  decrease  slowly  to  an 
AVITNM  of  42  at  AVSNR2  1035.  It  is  noted  that  the  high 
AVITNM  at  AVSNR2  376  also  has  an  inordinately  larqe  standard 
deviation. 

For  the  wide  constant  L2  result,  figures  (4.38)  and 
(4.42)  and  tables  (4.11)  and  (4.12),  the  rapid  increase  in 
iteration  numbers  is  over  the  16  through  185  AVSNR2  range. 
The  increase  in  AVITNM  is  from  2 to  24.  There  is  a slight 
dip  in  AVITNM  to  23  at  AVSNR2  263,  probably  due  to  a switch 
to  another  convergence  criterion,  succeeded  by  average 
iterations  which  increase  to  40  at  AVSNR2  743.  The  AVITNM 
dips  slightly  to  39.5  at  AVSNR2  1041.  As  the  Ll  norm 
results  are  unreliable  they  will  not  he  discussed. 


Wide  Gaussian  Error  Results 

Examination  of  the  wide  case  ordinate  noise  L2  norm 
error  curves,  figures  (4.43)  and  (4.44)  and  tables  (4.13) 
and  (4.14),  shows  that  the  percent  error  improvement 
decreases  monotonically  as  the  AVSNR2"*s  increase.  There  is 
a maximum  error  improvement  of  about  21,000,000%  at  AVSNR2 
1.9,  and  a minimum  error  improvement  of  67,000%  at  AVSNR2 


1035. 
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The  wide  case  constant  L2  error  results,  figures  (4.45) 
and  (4.46)  and  tables  (4.15)  and  (4.16),  also  show 
monotonically  decreasing  error  improvement  as  AVSNR2 
increases.  Here  the  maximum  error  improvement  is 
17,000,000%  at  AVSNR2  2.2,  and  the  minimum  improvement  is 
61,000%  at  AVSNR2  1041.  The  error  improvements  for  the  Ll 
norm  for  both  noise  types  are  of  the  same  order  of  magnitude 
as  those  for  the  L2  norm.  A brief  discusssion  of  the  result 
is  given  immediately  after  the  following  paragraph. 


Analysis  of  Results 

Studying  the  error  improvement  results,  one  observes 
that  the  improvement  in  error  is  signif icantlv  greater  for 
the  wide  gaussian  case  than  for  the  narrow,  even  though  the 
deconvolved  result  is  much  more  accurate  for  the  narrow 
case.  Figures  (4 . 17)  — (4 . 34)  and  (4 . 47) - (4 . 64)  show 
deconvolved  results  for  the  narrow  and  wide  cases, 
respectively,  before  and  after  Morrison's  method  is  applied 
at  selected  SNR  values.  This  is  due  to  the  wide  case 
deconvolution  before  Morrison's  smoothing  being  so 
inaccurate.  The  inaccuracy  is  a consequence  of  the  wide 
gaussian  transform,  G(s),  being  narrower  and  thus  containing 
many  more  small-magnitude  high-f requencv  components.  As 
discussed  previously,  these  components  cause  great 
amplification  of  noise  in  deconvolution. 
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In  observing  the  deconvolution  plots,  one  should  note 
that  the  graphs  do  not  represent  an  average  of  results  for 
each  SNR.  The  plots  are  of  selected  data  sets  that  make  up 
the  averages  for  each  SNR.  The  AVSNR2  and  AVITNM  are  listed 
on  the  graphs,  the  actual  SNR  and  iteration  number  of  the 
data  shown  may  be  different  from  the  averages.  For  AVSNR2  s 
where  the  AVITNM  is  approximately  equal  for  the  LI  and  L2 
norm  results  only  the  L2  norm  deconvolution  is  given,  though 
for  a specific  data  set  the  Ll  and  L2  results  could  be 
significantly  different.  For  the  wide  gaussian  only  a few 
of  the  Ll  norm  results  are  given  as  they  are  considered 
unreliable. 

Even  the  error  improvement  obtained  for  the  wide  case 
Ll  norms  is  considerable.  Just  the  smoothing  iteration,  or 
the  smoothing  followed  bv  one  or  a few  restoring  iterations, 
and  deconvolution  is  enough  to  achieve  a great  amount  of 
error  improvement  over  the  deconvolution  result  of  the 
unsmoothed  data.  Though  as  alluded  to,  the  deconvolution 
result  after  two  or  three  iterations  is  not  much  different 
from  the  original  noise-added  data. 

For  the  amount  of  error  improvement  at  specific  AVSNR2 
values  the  reader  may  refer  to  tables  (4.5)— (4.8)  and 
(4 . 13) - (4 . 16) . Standard  deviations  for  the  AVITNM  and 
AVERNM  results  are  shown  in  the  semilog  figures  and  listed 


in  the  tables. 
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The  average  iteration  numbers  for  the  wide  ordinate  L2 
result  are  consistently  higher  than  the  corresponding 
iterations  of  the  constant  L2  case.  As  decribed  in  Chapter 
IIIf  it  is  believed  that  the  ordinate  and  constant  noise 
tvpes  have  different  frequency  distributions.  The  ordinate 
noise  has  a somewhat  bimodal  frequency  distribution  and  the 
constant  noise  a more  even  distribution  of  frequencies,  with 
larger  magnitude  frequencies  for  the  low  middle  to  middle 
range  of  frequencies,  though  it  must  be  remembered  that  this 
description  of  the  frequency  distributions  is  speculation, 
as  a frequency  domain  study  of  the  noise  was  not  done.  It 
is  possible  that  the  restoration  of  the  relativelv  large  low 
middle  to  middle  range  noise  frequencies,  which  are 
magnified  in  deconvolution  as  G(s)  is  narrow,  caused  the 
faster  termination  of  iterations  for  the  wide  gaussian 
constant  noise  case. 

This  effect  of  higher  wide  ordinate  case  iteration 
numbers  is  not  as  prevelant  for  the  noise  removal  study 
(where  the  effect  of  differences  in  the  noise  frequency 
restoration  is  not  enough  to  cause  great  differences  in 
iteration  results)  because  deconvolution  magnifies  the 
effect. 

For  the  narrow  gaussian  deconvolution  study  the 
ordinate  and  constant  noise  iteration  results  are  more 
closely  related  than  for  the  wide  case.  Perhaps  this  closer 
correlation  of  iteration  numbers  is  due  to  the  relative 
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flatness,  or  wideness,  of  the  magnitude  of  G(s)  for  the 
narrow  gaussian,  as  there  is  less  magnification  of  noise  at 
higher  frequencies  in  deconvolution.  In  speaking  of  the 
relative  widths  of  the  frequency  domain  representations  for 
the  narrow  and  wide  gaussian  cases,  it  is  important  to 
remember  that  both  fill  the  same  transform  domain  window 
determined  by  the  sampling  interval  in  the  function  domain. 

Comparing  the  iteration  results  of  the  narrow  ordinate 
and  constant  cases,  one  may  find  a greater  difference  in 
iterations  over  specific  AVSNR2  regions  than  in  the  wide 
case.  This  is  also  true  for  the  noise  removal  study.  But 
over  the  complete  SNR  range,  higher  ordinate-noise  iteration 
results  are  most  significant  for  the  wide  gaussian 
deconvolution  study. 

As  the  explanation  of  the  frequency  domain  behavior  of 
the  ordinate  and  constant  noise  studies  is  not  known  with 
certainty,  a useful  study  in  this  matter  would  be  to  analyze 
the  frequency  domain  representations  of  the  Morrison 
restored  data  at  each  iteration.  This  would  allow  one  to 
observe  how  the  frequency  components  of  the  data  are  being 
restored  and  possibly  make  a better  determination  of  why 
differences  or  similarities  occur  in  the  two  results. 

An  examination  of  the  error  improvement  results  for  the 
wide  L2  cases  reveals  that  in  general  the  ordinate  case 
error  improvements  are  slightly  better  than  the 
corresponding  constant  case  improvements.  However,  this 
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does  not  necessarily  imply  that  the  deconvolved  optimum 
results  for  the  ordinate  case  are  slightly  better  than  those 
for  the  constant  noise  case.  The  deconvolution  prior  to 
application  of  Morrison's  noise  removal  likely  contains  more 
error  for  the  ordinate  case  because  of  the  larger  magnitude 
high  frequencies.  In  this  determination  a listing  of  the 
error  after  Morrison's  noise  removal  would  be  benefical 
though  it  is  not  given  here.  One  may  analyze  the 
deconvolutions  for  the  ordinate  and  constant  noise  cases  at 
the  same  SNR  for  selected  SNR's,  figures  (4 . 47) - (4 . 64)  , to 
make  a judgement  in  this  regard.  For  the  narrow  case  one 
may  examine  figures  (4.17)-(4.34)  to  decide  whether  the 
ordinate  or  constant  noise  deconvolution  results  are  better. 
One  may  find  that  the  SNR  of  the  data  has  an  effect  on  the 
relative  goodness  of  the  two  results. 


Weighted  Error  Measure 

It  should  be  noted  that  in  the  course  of 
experimentation  a modification  to  the  Ll  and  L2  error 
measures  was  applied  in  the  determination  of  optimum 
iteration  number  for  the  deconvolution  study.  This 
modification  was  to  weight  the  Ll  and  L2  error  at  each  data 
point  by  the  known  input  f.  This  was  accomolished  by 
multiplying  the  error  at  each  point  by  the  value  of  f if  f 
was  greater  than  one  there.  Where  f is  less  than  or  equal 
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to  one,  or  zero,  the  error  was  multiplied  by  one.  The 
results,  determined  by  examining  plots  of  the  optimum 
deconvolution  achieved  for  the  weighted  and  unweighted  error 
measures,  were  that  for  most  SNR  values  the  iterations 
seemed  to  be  continued  past  the  number  that  would  produce 
what  most  observers  would  regard  as  optimum.  Resolution  of 
peaks  was  not  significantly  better  than  the  unweighted 
optimum  result,  and  noise  about  the  baseline  began  to 
obscure  the  data.  However  for  some  SNR  values,  specifically 
low  middle  range  values,  an  argument  could  be  made  for  using 
the  weighted  error  measure  for  the  wide  case,  as  there  was  a 
significant  increase  in  the  resolution  of  peaks.  The 
determination  of  which  error  measure  achieves  the  best 
result  is  very  user  and  data  dependent  as  the  data  analyst 
may  or  may  not  be  willing  to  accept  increased  noise  for 
increased  resolution  of  signal.  Figure  (4.65)  shows  this 
result  at  SNR  68,  where  the  deconvolved  wide  case  result, 
denoted  by  "o",  is  the  wide  case  unweighted  L2  optimum,  and 
th^  result  with  more  resolution  of  peaks  is  the  weighted  L2 
optimum.  The  least  resolved  result  is  the  LI  unweighted 
case.  The  weighted  measure  was  aoplied  to  the  wide  case  Ll 
optimization,  but  with  little  success.  There  was  a slight 
improvement  in  the  iteration  results  over  the  lower  middle 
SNR  range,  but  not  enough  of  an  improvement  to  consider  the 


result  correct. 
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The  results  given  in  this  work  are  all  calculated  using 
the  unweighted  error  measures.  An  experimenter  applying 
these  results  to  low  middle  range  SNR  data  may  want  to 
continue  Morrison's  smoothing  for  considerably  more 
iterations  and  then  choose  the  optimal  number  of  iterations 
which  best  suits  his  or  her  needs.  Using  the  maximum 
iteration,  MXIT,  listed  in  the  tables  of  iteration  results 
would  perhaps  be  a good  starting  point  in  the  selection  of  a 
higher  number  of  iterations  for  this  SNR  range. 

The  appendix  lists  all  computer  programs  used  for  this 
work,  along  with  documentation.  The  program  for  the 
deconvolution  study  contains  the  necessary  algorithm  for 
applying  the  weighted  error  measure. 
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CHAPTER  V 


CONCLUSION 


Comparison  of  the  Two  Applications  of  Morrison's  Method 

As  mentioned  above,  Morrison's  smoothing  is  designed 
specifically  for  noise  removal  prior  to  deconvolution.  In 
general  the  error  improvement  between  results  before  and 
after  Morrison's  technicrue  is  applied  is  greater  for  the 
deconvolution  study.  This  is  especially  true  for  the  wide 
gaussian  case  as  the  relatively  large  number  of  small 
magnitude  high  frequency  components  in  G(s)  cause  great 
amplification  of  noise  in  deconvolution  before  Morrison's 
method  is  applied. 

In  the  comparison  of  the  optimum  iteration  results  for 
the  wide  gaussian  ordinate  and  constant  noise  L2  norm  cases 
for  noise  removal  alone  and  noise  removal  prior  to 
deconvolution,  it  is  obvious  that  the  average  iteration 
numbers  are  significantly  higher  for  noise  removal  alone 
over  the  full  range  of  the  average  SNR  values.  This  is  a 
consequence  of  optimum  use  of  Morrison  s method  for  overall 
noise  removal  not  corresponding  to  optimum  use  prior  to 
deconvolution.  When  iterations  are  continued  past  the 
optimum  for  deconvolution,  noise  at  higher  frequencies  and 
elsewhere  continues  to  be  restored.  As  deconvolution  is 
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most  sensitive  to  noise  at  frequencies  where  the  magnitudes 
of  G (s)  and  H(s)  are  small,  the  result  is  greater  distortion 
of  the  deconvolved  result. 

In  the  narrow  gaussian  study  the  optimum  iteration 
numbers  show  a much  closer  relationship  between  the  noise 
removal  alone  and  deconvolution  studies.  The  degree  of 
closeness  as  compared  to  the  wide  case  result  can  in  all 
probability  be  attributed  to  the  fact  that  G(s)  and  H(s)  for 
the  narrow  gaussian  contain  fewer  small-magnitude 
high-frequency  components,  and  thus  have  a flatter  spectrum. 
Consequently,  Morrison's  method  restores  signal  and  noise 
most  quickly  where  G(s)  is  largest,  giving  a more  even 
restoration  of  the  low  and  somewhat  higher  frequencies.  The 
combination  of  these  two  factors  is  enough  to  cause  slower 
amplification  of  noise  in  deconvolution.  Where  H(s)  is 
wider,  it  takes  longer  for  error  in  regions  for  which  H(s) 
is  small  to  cause  a large  percentage  error  in  the 
deconvolved  result. 

♦ 

From  the  results  of  the  wide  and  narrow  gaussian 
studies  there  seems  to  be  a direct  relationship  between  the 
width  of  the  system's  response  and  the  degree  of  correlation 
between  the  noise  removal  and  deconvolution  results. 
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User  Application 


A user  having  similar  data  wishing  to  apply  the  results 
calculated  in  this  study  should  consult  chapter  III  if 
optimization  for  noise  removal  alone  is  desired,  and  chapter 
IV  for  optimization  prior  to  deconvolution.  The  plots  of 
average  iteration  number  and  average  error  improvement 
versus  average  SNR  are  probably  the  most  useful  results  for 
a data  analyst.  Only  the  SNR  of  the  data  need  be  calculated 
as  decribed  in  chapter  III,  and  from  the  iteration  plots  the 
corresponding  iteration  number  can  be  located.  Using  the 
plots  where  the  abscissa  values  are  the  natural  log  of 
average  SNR  is  suggested  for  lower  SNR's  for  easier 
interpretation.  The  exponential  of  the  natural  log  value 
must  be  taken  to  calculate  the  SNR  value.  Choosing  an 
iteration  number  at  the  upper  limit  of  one  standard 
deviation  above  the  mean  number  will  correspond  to  a result 
with  more  noise  but  perhaps  more  resolution  of  signal. 
Choosing  an  iteration  number  at  the  lower  limit  of  one 
standard  deviation  below  the  mean  will  give  a result  with 
less  noise  but  perhaps  less  resolution  of  signal.  The  user 
should  bear  in  mind  that  the  maximum  and  minimum  number  of 
iterations  for  optimization  at  a given  SNR,  listed  in  the 
tables,  mav  also  be  of  interest. 


The  error  curves  give  the  user  some  idea  of  how  much 
error  improvement  can  be  expected.  An  error  ratio  greater 
than  one  corresponds  to  no  improvement  in  error  achieved  by 
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applying  Morrison^s  noise  removal.  The  analyst  will 
probably  not  want  to  apply  Morrison^s  method  in  this  region 
or  even  when  the  error  ratio  is  not  much  less  than  one. 


Application  to  van  Cittert^s  Deconvolution 

A significant  added  result  of  this  study  is  that  the 
optimization  of  Morrison^s  method  prior  to  deconvolution 
corresponds  to  the  optimum  use  of  van  Cittert  s iterative 
method  of  deconvolution  applied  alone  and  without 
constraints.  The  transform  domain  representation  of  van 
Cittert's  method  of  deconvolution  as  given  by  Fr ieden(1979) 
is  as  follows: 


Fn  = (H/G) [ 1- ( 1-G) n+1] 


Comparison  to  the  frequency  domain  representation 
Morrison's  technique  with  deconvolution: 


Hn/G  = [ 1-  ( 1-G)  n]  (H/G) 


shows  that  the  ootimum  for  van  Cittert's  method  occurrs  at 
one  less  iteration  number  than  for  Morrison's  technique 
prior  to  deconvolution. 
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Farther  Research 

An  interesting  study  would  be  to  calculate  results  for 
a number  of  gaussians  having  a greater  and  more  detailed 
range  of  widths,  and  determine  if  the  same  behavior  found 
here  is  magnified  and  how  the  behavior  depends  on  width  in 
detail.  This  may  allow  one  to  make  a more  definitive 
statement  about  the  results  achievable  with  Morrison's  noise 
removal  in  relation  to  the  width  of  the  gaussian  response. 

Another  extension  to  the  study  performed  here  would  be 
to  determine  the  optimum  use  of  Morrison's  noise  removal  for 
data  containing  a mixture  of  constant  and  ordinate-dependent 
noise.  Because  of  the  proportionate  contribution  of  each 
noise  type  could  be  varied,  care  would  have  to  be  taken  to 
select  realistic  mixtures  and  to  limit  the  cases  so  that  the 
amount  of  data  to  be  summarized  does  not  grow  to  large. 
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APPENDIX 

Computer  Programs  and  Documentation 

The  computer  programs  used  to  calculate  the  results  of 
this  study  are  listed  here  as  well  as  brief  documentation 
for  each  program.  All  orograms  are  written  in  FORTRAN.  The 
program  ERWRAP . FOR  was  used  to  calculate  the  results  of 
Chapter  II.  Input  to  the  program  is  the  type  gaussian  used, 
GTYP , i.e.,  either  narrow  or  wide,  1 or  2;  the  length  of 
the  output  h,  M,  either  32  or  44  for  this  studv;  the  length 
of  the  gaussian  g,  N,  9 or  21,  followed  by  the  length  of  the 
input  f,  L=24 . Next  the  number  of  the  data  file  containing 
h,  g,  and  f is  input;  followed  bv  the  length  of  the  longest 
length  inverse  filter,  minus  one,  to  be  calculated, 

NT=NT1=4096. 

Filters  of  decreasing  length  are  calculated  until  a 
filter  of  length  33  is  attained.  The  method  used  to 
calculate  filters  of  decreasing  length  is  to  divide  NT1=4096 
by  a variable  labled  INDEX.  Each  time  through  a loop  in  the 
main  program  INDEX,  which  has  an  initial  value  of  one,  is 
multiplied  by  two.  An  INDEX  of  128  calculates  a 33  point 

filter;  a larger  INDEX  causes  termination  of  the  loop  and 

then  the  output  files  are  produced.  A user  can  change  the 
limits  set  on  the  loop  to  calculate  a different  range  of 

filter  lengths.  The  results  listed  in  the  tables  and  on  the 
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figures  of  Chapter  II  were  produced  from  the  output  files 
listed  in  the  subroutines  OUTERR  and  OUTCON.  The  reader  mav 
consult  these  subroutines  for  a listing  of  the  file  numbers. 

The  results  of  Chapter  III  were  calculated  using  the 
program  NOS 2B .FOR.  Input  to  the  program  is  the  type  of 
gaussian,  narrow  or  wide,  1 or  2,  respectively,  followed  bv 
the  lengths  of  h and  g.  Next  the  number  of  the  input  file 
containing  h and  g is  input;  followed  by  the  type  noise  to 
added  to  the  data.  Type  in  1 and  ordinate  dependent  noise 
is  produced;  2 gives  constant  noise.  The  maximum  and 
minimum  noise  scale  factor  NSF  are  input  to  set  the  limits 
on  the  range  of  SNR's  to  be  calculated.  The  plots  of  AVESNR 
versus  l/CNSF)^2  given  in  Chapter  III  are  useful  in 
choosing  effective  NSF's.  Next  the  maximum  number  of 
Morrison's  restorations  that  can  be  performed  is  input;  the 
program  has  an  upper  limit  of  900  restorations.  The  results 
listed  in  the  tables  and  plots  of  Chapter  III  were  produced 
from  the  output  files  listed  in  the  subroutine  OUTPUT. 

The  program  DECON . FOR  was  applied  in  calculating  the 
results  of  Chapter  IV.  Input  to  DECON. FOR  is  the  gaussian 
type,  1 or  2,  the  lengths  of  h,  g,  and  f;  followed  by  the 
number  of  the  file  containing  h,  g,  and  f.  Next  the  number 
of  points  minus  one,  NT,  of  the  most  accurate  lenqth  inverse 
filter  to  be  used  in  deconvolution  is  input;  i.e.,  256  and 
128  for  the  narrow  and  wide  gaussian  studies,  respectively. 
The  noise  type  is  then  input,  either  1 or  2,  followed  by  the 
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maximum  and  minimum  NSF's  to  be  used.  For  the  NSF  s to  use 
the  AVESNR  versus  1/(NSF)1//2  plots  of  Chapter  III  are  again 
useful.  Next  the  maximum  number  of  Morrison's  iterations 
that  can  be  performed  is  input;  the  program  has  an  upper 
limit  of  900.  Iterations  will  be  terminated  when  the  error 
minimum  or  convergence  of  error  is  attained.  The  number  of 
data  sets  to  be  optimized  is  input  (50  for  this  studv) ; 
followed  by  the  number  of  points  the  error  is  to  be 
calculated  over,  either  L=24,  or  M=s32  or  44.  The  type  of 
error  measure  used  is  input;  either  1 for  the  unweighted  Ll 
and  L2  norms,  or  2 for  the  weighted  measures.  Next  the 
convergence  criteria  defined  in  Chapter  IV  is  input.  The 
output  files  contained  in  the  subroutine  OUTPUT  were  used  to 
give  all  results  listed  in  Chapter  IV 

In  listing  the  proqrams  the  main  program  of  each 
calculation  is  given.  A complete  version.  including  all 
subroutines,  is  given  of  DECON.FOR.  For  ERWRAP.FOR  the 
subroutines  used  to  calculate  the  inverse  filter  are  not 
included  since  these  subroutines  are  listed  in  DECON  FOR. 
For  the  program  NOS 2B. FOR,  the  subroutines  used  to  add 
ordinate  dependent  and  constant  noise,  the  subroutines  used 
in  smoothing  and  restoration,  and  the  output  subroutine  are 
not  given  as  they  are  also  included  in  DECON.FOR.  In  the 
insertation  of  subroutines  from  DECON.FOR  into  NOS2B.FOR. 
however,  care  should  be  taken  as  some  of  the  arrays  of 
NOS 2B.F0R  begin  with  zero  as  the  first  data  location  and  the 
same  arravs  used  in  DECON.FOR  begin  with  one  as  the  first 
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data  element.  Some  minor  modifications  to  the  subroutines 
SMOOTH  and  RESTOR,  and  the  noise  addition  subroutines  will 


have  to  be  made. 


non  ooo  ooo  ooo  ooo  non  non  non  o ooo^ooo 
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PROGRAM  ERWRAP . FOR 

IMPLICIT  DOUBLE  PRECISION (A-H ,0-Z ) 

DIMENSION  GSMBER (20) ,GSMQER (20) ,GSMBHR(20) 

DIMENSION  GVARHF (20) ,GSMBDH (20) f GSMQDH (20) ,FTL(10) , 
* GSMABD (20) ,GSMSQD(20) ,GT(8194) ,GSMQHR(20) 

DIMENSION  H (256) ,G(256) ,F(256) ,GTR(4200) ,HO(4200) 
INTEGER  P,Z,ANS,GTYP,OFL,PTINDX 
INDEX  = 0 
PTINDX  = 1 

ENTER  DATA  _NUMBER  OF  POINTS  IN  GT 

CALL  ENTERD(GTYP,N,M,L,G,H,F, NT, INDEX) 

ADD  ZEROS  WITH  PREPGT  FOR  LENGTH  NT  _IMG.  * 0 
CALL  PREPGT (GT,NT,N,G) 

CALL  FFT (GT ,NT ,-l) 

CALCULATE  MAGNITUDE  OF  TRANSFORM  GT 
CALL  MAGGT (GT ,NT) 

CALCULATE  1 /TRANS FORM  GT 
CALL  INVTRN ( GT , NT ) 

BACK  TO  FUNCTION  DOMAIN 
CALL  FFT (GT ,NT ,+l) 

SHIFT  PEAK 

CALL  SHIFGT (GT /NT) 

NORMALIZE  INVERSE  IMPULSE  RESPONSE  _MAKE  SYMETRIC (ODD) 
CALL  NRMSMR ( GT , NT ) 

DELETE  IMAGINARY  PART  OF  GT 
CALL  GTRE AL ( GTR , GT , NT ) 

DO  CONVOLUTION  HO  = H * GTR 

CALL  CONVOL ( GTR , H , HO , M , NT ) 

OUTPUT  CONVOLUTION  RESULTS 


C 


CALL  OUTCON(HO,MfNT- INDEX) 


nnnnnn  o nnn  non  non  non  nn 
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CALCULATE  ERROR  BETWEEN  HN'S  _F 

CALL  ERRFHO ( F , HO  f M , L , NT  SMABER , SMS QER , SMABHR , SMS QHR , 

1  VARHF) 

CALCULATE  DIFFERENCE  BETWEEN  HA  _HN"S 

CALL  DIFH (HO , SMBDHM , SMQDHM , INDEX ,M , NT  ,SMABD , SMS QD) 

PLACE  ERRORS  INTO  ARRAYS  JOUTPUT  RESULTS 

CALL  SMARAY ( SMABER , SMS QER , SMABHR , SMS QHR f VARHF , 

1 GSMBER , GSMQER , GSMBHR , GSMQHR , GVARHF , PT INDX , L , M , 

2 SMBDHM , SMQDHM , GSMBDH , GSMQDH , NT , FTL , SMABD , SMS  QD , 

3 GSMABD ,GSMSQD) 

GO  BACK  TO  ENTERD  TO  DO  CALCULATIONS  FOR  NEW  GT 

INDEX  = INDEX  * 2 

IF  ( INDEX. LE. 128) GO  TO  4 

OUTPUT  THE  ERROR  MEASURES 

CALL  OUTERR ( GSMBER , GSMQER , GSMBHR , GSMQHR , GVARHF , PTINDX  f 
1 GSMBDH , GSMQDH, FTL f GSMABD f GSMSQD f GTYP) 

RETURN 

END 


ENTER  DATA  _NUMBER  OF  POINTS  NT 

SUBROUTINE  ENTERD (GTYP ,N,M,L,G,H,F,NT, INDEX) 
IMPLICIT  DOUBLE  PRECISION (A-H ,0-Z ) 

DIMENSION  G (256) ,H (256) ,F (256) 

INTEGER  GTYP 

1 FORMAT (I) 

IF  ( INDEX. GT  l'^O  'TO  10 

INDEX=1 
TYPE  2 

2 FORMAT {'  ENTER  1 FOR  NARROW  G,  2 FOR  WIDE  G ') 
ACCEPT  1 , GTYP 

CALL  INPUT (NrM,LfGfHfF ,GTYP) 

TYPE  3 

3 FORMAT ( " ENTER  NUMBER  OF  POINTS  IN  GTl  '$) 
ACCEPT  1,NT 

NT1=NT 

IF  ( INDEX. EQ.  DGO  TO  20 
10  NT=NT1 /INDEX 

20  RETURN 

END 
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C 

C 


105 

110 

120 

130 

135 

140 

160 

10 

C 

C 

C 


C 


5 

10 


INPUT  ENTERS  THE  DATA 

SUBROUT INE  INPUT (N,M,L,G,H,F, GTYP ) 
IMPLICIT  DOUBLE  PRECISION (A-H ,0-Z) 
DIMENSION  H (256) ,G (256) ,F (256) 

INTEGER  IFL , GTYP 
WRITE (33, 105) 

WRITE (40, 10 5) 

WRITE (33, 120) GTYP 
WRITE (4 0,120) GTYP 

FORMAT  (///■*  TYPE  OF  G FUNCTION  '//) 

TYPE  110 

FORMAT  ('  ENTER  SIZE  OF  H") 

ACCEPT  120 ,M 
FORMAT (I) 

TYPE  130 

FORMAT ( “*  ENTER  SIZE  OF  G ,ODD  ') 

ACCEPT  120 ,N 
TYPE  135 

FORMAT ('  ENTER  SIZE  OF  P ') 

ACCEPT  120 ,L 
TYPE  ] 40 

FORMAT ('  ENTER  THE  INPUT  FILE  ',$) 

ACCEPT  120, IFL 

READ (IFL, 160) (H(I) ,1=1, M) 

READ ( IFL ,160) (G (I) ,1-1, N) 

READ (IFL  160) (F(I) ,1-1, L) 

FORMAT (4G) 

FORMAT (G) 

RETURN 

END 

CONVOLUTION  PROGRAM 

SUBROUTINE  CONVOL (GTR,HI ,HO,M,NT) 
IMPLICIT  DOUBLE  PRECISION (A-H ,0-Z ) 
DIMENSION  GTR (4097) , HI (256) ,HO(4140) 
INTEGER  A,B,C,D,E,F 
COMPUTE  CONVOLUTION 
K-NT+M 
DO  10  1=1, K 
HO (I) =0 . 

A=1 

B=I-M+1 

IF  (A.GE.B)  C=A 
IF  (A  LT.B)  C=B 
D=I 

E=NT+1 

IF  (D.LT  E'  F=D 
IF  (D.GE.E)  F=E 
DO  5 J=C,F 

TEMP=GTR ( J) *HI (I-J+l) 

HO ( I ) =HO ( I ) +TEMP 
CONTINUE 


non  noo  ooom  ooo 


RETURN 

END 
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OUTPUT  CONVOLUTION  RESULTS- (WITH  PLOT) 

SUBROUTINE  OUTCON (HO fM,NT , INDEX) 

IMPLICIT  DOUBLE  PRECISION (A-H ,0-Z) 

DIMENSION  HO (4200) 

FORMAT (G) 

IF  (INDEX. EQ.1)WRITE(51, 10) (HO(I) ,I=1,NT+M) 

IF  (INDEX. EQ. 2)WRITE (52 , 10) (HO (I) ,I=1,NT+M) 

IF  ( INDEX. EQ. 4) WRITE (53,10) (HO (I) ,I=1,NT+M) 

IF  (INDEX. EQ. 8) WRITE (54, 10) (HO(I' , 1=1 ,NT+M) 

IF  ( INDEX. EQ. 16) WRITE (55,10) (HO(I) ,I=1,NT+M) 

IF  (INDEX. EQ. 3 2) WRITE (56, 10) (HO(I) ,I=1,NT+M) 

IF  ( INDEX. EQ. 64) WRITE (57,10) (HO(I) ,I=1,NT+M) 

IF  ( INDEX. EQ. 128) WRITE (58/10) (HO(I) ,I=1,NT+M) 

RETURN 
END 

ERROR  HO  _F 

SUBROUTINE  ERRFHO IF . HO , M , L , NT , SMABER , SMS QER , SMABHR , 
1 SMS  QHR , VARHF ) 

IMPLICIT  DOUBLE  PRECISION (A-H ,0-Z ) 

DIMENSION  F ( 256) , HO (4200) ,ABER (100) ,SQABER(100) 
DIMENSION  HHFER(256) ,HOFER(4200) 

SMABER=0 . 

SMSQER=0 . 

SMSBHR=0. 

SMSQHR=0 . 

VARHF=0 . 

ERROR  HN  _F , L TERMS 
DO  10  1=1, L 

ABER (I ) =DABS (HO (M/2+NT/2-L/2+I ) -F ( I ) ) 

SQABER (I)  = ^ ABER (I) )**2 
SMABER=SMABER+ABER (I ) 

S MS  QER=  SMS  QER+  S Q AB  ER ( I ) 

10  CONTINUE 

SMABER=SMABER/L 
SMS  QER=  SMS  QER/L 
WRITE (33,20) 

20  FORMAT (///'  F - FUNCTION  ' / /) 

WRITE(33,40)  (F(I)  ,1-1, L) 

WRITE (33,30) 

30  FORMAT  (///'*  L-TERMS  OF  HN  '//) 

WRITE (33,40) (HO (M/2+NT/2-L/2+I ) ,I=1,L) 

WRITE (33,32) 

32  FORMAT (///"  ABS . ERR.  = ABS (F-HN)  , L-TERMS  ' / /) 

WRITE (33 , 40) (ABER (I) ,1-1, L) 

WRITE (33,33) 

FORMAT  (///"*  SUM  OF  ABS  ERROR  F _HN  , L-TERMS  //) 


33 
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35 

37 

40 

C 

C 

C 

50 

55 

60 

65 

70 

77 

78 

C 

C 

C 

80 

85 

90 

C 

c 

c 

100 

105 


WRITE ( 3 3 , 4 0 ) SMABER 

WRITE  (33 , 35)  „ . 

FORMAT  (///'*  SQ.  ABS.  ERR.=ABS  (F-HN)  **2  ,L-TERMS  //) 
WRITE  f 33 , 40)  (SQABER(I) ,1=1, L) 

WRITE (33,37) 

FORMAT  (///“*  SUM  OF  SQ.  ERROR  F _HN  , L-TERMS  //) 
WRITE (33,40) SMSQER 
FORMAT (8 (1PE16.6) ) 

ERROR  HN  _F,  M TERMS 

DO  50  I=l,M/2-L/2 

HHFER ( I ) =DABS (HO (NT/2+1 ) ) 

CONTINUE 
DO  55  1=1, L 

HHFER (M/2-L/2+I ) =ABER ( I ) 

CONTINUE 

DO  60  1=1 ,M/2-L/2 

HHFER (M/2+L/2+I ) =DABS (HO (NT/2+M/2+L/2+I ) ) 

CONTINUE 

WRITE (33,65)  „ , 

FORMAT {///'  ABS.  ERR.  = ABS t F-HN) , M-TERMS  //) 

DO  70  1=1, M 

SMABHR= SMABHR+HHFER (I) 

S MS  QHR= SMS  QHR+HHFER ( I ) * * 2 

CONTINUE 

SMABHR=SMABHR/M 

SMSQHR=SMSQHR/M 

WRITE (33,77) 

FORMAT (///'  SUM  OF  ABS-  ERROR  - M TERMS  //) 

WRITE (33,78) 

FORMAT  (///"*  SUM  OF  SQ.  ERROR  - M TERMS  //) 

WRITE (33,40) SMSQHR 

ERROR  HN  _F  ,M+NT  TERMS  — VARIANCE 

DO  80  1=1 ,NT/2+M/2— L/2 

HOFER ( I ) =DABS (HO ( I ) ) * 

CONTINUE 
DO  85  1=1, L 

HOFER (NT/2+M/2-L/2+I ) =ABER ( I ) 

CONTINUE 

DO  90  I=NT/2+M/2+L/2+l ,NT+M 
HOFER ( I ) =DABS (HO (I) ) 

CONTINUE 

CALCULATE  VARIANCE  - NT+M  TERMS 

DO  100  1=1, NT+M 
VARHF=VARHF+ (HOFER (I) **2) 

CONTINUE 

VARHF= VARHF / (NT+M) 

WRITE (33 , 105) 

FORMAT {/ / /'  VARIANCE  OF  HN  - NT+M  TERMS  '//) 


doom  <-n  non  o on 
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WRITE (3 3, 40) VARHF 

RETURN 

END 


PLACE  SUM'S  INTO  ARRAY'S 

SUBROUTINE  SMARAY ( SMABER , SMSQER , SMABHR , SMSQHR , VARHF , 

1 GSMBER , GSMQER , GSMBHR , GSMQHR , GVARHF , PTINDX , L f M , 

2 SMBDHM , SMQDHM , GSMBDH  GSMQDH  NT  - FTL , SMABD , SMSQD , 

3 GSMABD , GSMSQD ) 

IMPLICIT  DOUBLE  PRECISION (A-H ,0-Z ) 

DIMENSION  GSMBER (20) ,GSMQER(20) ,GSMBHR(20) 

DIMENSION  GVARHF (20) ,GSMBDH(20)  , GSMQDH (20)  ,FTL (10) , 

1 GSMABD (20) , GSMSQD (20) ,GSMQHR(20) 

INTEGER  PTINDX 
IF  (PTINDX. EQ.l) GO  TO  5 
GSMBDH (PTINDX- 1) =SMBDHM 
GSMQDH (PTINDX- I) = SMQDHM 
GSMABD ( PTINDX- 1) =SMABD 
GSMSQD (PTINDX— 1) =SMSQD 
GSMBER (PTINDX) = SMABER 
GSMQER (PTINDX) = SMSQER 
GSMBHR (PTINDX) = SMABHR 
GSMQHR (PTINDX) = SMSQHR 
GVARHF (PTINDX) =VARHF 
FTL (PTINDX) =NT+1 
PTINDX=PTINDX+1 
TYPE  10, NT 
FORMAT (I) 

RETURN 
END 

OUTPUT  ERROR  MEASURES 

SUBROUTINE  OUTERR (GSMBER , GSMQER , GSMBHR , GSMQHR , 

1 GVARHF , PTINDX , GSMBDH  f GSMQDH  f FTL  f GSMABD , GSMS QD , 

2 GTYP) 

IMPLICIT  DOUBLE  PRECISION (A-H fO-Z ) 

DIMENSION  GSMBER (20) , GSMQER (20) ,GSMBHR(20) fGSMQHR(20) 
DIMENSION  GVARHF (20) f GSMBDH (20) ,GSMQDH(20) , FTL (10) , 

1 GSMABD (20) , GSMSQD (20) 

DIMENSION  SSMBER (20) fSSMQER(20) ,SSMBHR(20) ,SSMQHR(20) 
DIMENSION  SVARHF (20)  fSSMBDH(20)  fSSMQDH(20)  ,FTLL(10)  , 

1 SSMABD(20) ,SSMSQD(20) 

INTEGER  PTINDX, GTYP 
J=PTINDX 
K = PTINDX- 1 
1 FORMAT (8 (1PE16.6) ) 

DO  2 1=1, v/' 

FTLL ' I ' =FTL ( I ) 

S SMBER ( I ) =GSMBER • I ) 
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SSMQER ( I ) =GSMQER ( I ) 

S SMBHR ( I ) =GSMBHR ( I ) 

SSMQHR ( I ) = GSMQHR ( I ) 

SVARHF ( I ) =GVARHF ( I ) 

SSMBDH ( I ) =GSMBDH ( I ) 

SSMQDH (I) =GSMQDH (I) 

SSMABD (I) =GSMABD (I) 

SSMSQD ( I ) =GSMSQD ( I ) 

2 CONTINUE 

DO  3 1=1 , (K/2) 

FTL ( I ) =FTL  f J— I ' 

GSMBER ( I ) =GSMBER (J-I ) 

GSMQER ( I ) =GSMQER ( J-I ) 

GSMBHR ( I ) =GSMBHR (J-I ) 

GSMQHR ( I ) =GSMQHR (J-I ) 

GVARHF ( I ) =GVARHF (J-I ) 

IF  (I.EQ.l)  GO  TO  3 
GSMBDH (1-1) =GSMBDH 'J-I' 

GSMQDH (1-1) =GSMQDH ( J-I ) 

GSMABD ( I— 1 ) =GSMABD (J-I) 

GSMSQD (1-1) =GSMSQD (J-I) 

3 CONTINUE 

DO  4 1= (K/2+1) ,K 
FTL ( I ) =FTLL ( J- I ) 

GSMBER ( I ) =SSMBER ( J-I ) 

GSMQER ( I ) = SSMQER (J-I ) 

GSMBHR ( I ) =S SMBHR (J-I ) 

GSMQHR ( I ) = SSMQHR (J-I ) 

GVARHF ( I ) = SVARHF (J-I ) 

GSMBDH (I— 1) =SSMBDH (J-I) 

GSMQDH (1-1) = SSMQDH ( J-I ) 

GSMABD ( 1-1 ) = SSMABD (J-I ) 

GSMSQD ( 1-1) =SSMSQD ( J— I ) 

4 CONTINUE 
WRITE  MO  f 5) 

5 FORMAT  (///“*  SUM  OF  ABS  ERR,  L TERMS:  H1,...,HN  //) 

WRITE (40,1) (GSMBER (I) ,1=1, K) 

WRITE (40,10) 

10  FORMAT  (///“*  SUM  OF  SQ.  ERR,  L TERMS:  H1,...,HN  //) 

WRITE (40,1) ( GSMQER ( I ) ,1=1, K) 

WRITE (40, 15) 

15  FORMAT  (///'*  SUM  OF  ABS  ERR.  M TERMS:  H1,...,HN  '//) 

WRITE (40,1) (GSMBHR (I) ,1-1, K) 

WRITE (40,20) 

20  FORMAT  (///'*  SUM  OF  SO.  ERR,  M TERMS:  H1,...,HN  '//) 

WRITE (40,1) (GSMQHR (I) ,1=1, K) 

WRITE (40, 25) 

25  FORMAT (///'  VARIANCE  OF  HN  FROM  F,  NT+M  TERMS  //) 

WRITE (40,1) (GVARHF (I) ,1=1, K) 

WRITE (40,35) 

35  FORMAT (///"  SUM  OF  ABS  DIF  - (HA-HN)  - M TERMS  V/) 

WRITE (40,1) (GSMBDH (I ) ,1=] -K-l) 

WRITE (40,45) 

FORMAT (///'  SUM  OF  SQ.  DIF  - (HA-HN)  - M TERMS  '//) 
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WRITE (40,1) (GSMQDH(I) ,1=1, K-l) 

C 

C* 

C* 

C SKIP  GRAPH  OUTPUT  TO  KEEP  TOO  MANY  DEVICES 
C* 

C PREPARE  FOR  GRAPH 


c 

FILE 

25 

= 

SUM 

OF 

ABS 

ERR 

L 

TERMS 

c 

FILE 

26 

S 

SUM 

OF 

SQ. 

ERR 

L 

TERMS 

c 

FILE 

27 

ss 

SUM 

OF 

ABS 

ERR 

M 

TERMS 

c 

FILE 

28 

s 

SUM 

OF 

SQ. 

ERR 

M 

TERMS 

c 

FILE 

29 

s 

VARIANCE  OF  HN  S 

C FILE  30  = SUM  OF  ABS  DIF  HA-HN  M TERMS 

C FILE  31  = SUM  OF  SQ.  DIF  HA-HN  M TERMS 

C FILE  60  = SUM  OF  ABS  DIF  HA-HN  (NT+M)  TERMS 

C FILE  61  = SUM  OF  SQ.  DIF  HA-HN  (NT+M)  TERMS 

C 

C WRITE (25,50) (FTL(I) ,GSMBER (I) ,I=1,K) 

C WRITE (26 ,50)  (FTL  * I' , GSMQER ( I ) ,1-1, K) 

C WRITE (27 ,50^  (FTL * I) ,GSMBHR (I ) ,1=1, K) 

C WRITE (28,50) (FTL (I) ,GSMQHR (I) ,1-1, K) 

WRITE (29,50)  (FTL  *1)  ,GVARHF (I ) ,1-1.*) 

WRITE (30,50) (FTL (I) , GSMBDH ( I ) ,1=1, K-l) 

WRITE  (31,60)  (FTL  (I'  , GSMQDH  (I'  ,I=1  "’-1) 

WRITE (60,50) (FTL (I) ,GSMABD (I ) ,1=1, K-l) 

WRITE (61,50) (FTL (I) ,GSMSQD(I) ,1=1, K-l) 

50  FORMAT (2G) 

11  FORMAT (3 (1PE15.6)  ) 

12  FORMAT ( 2 ( 1PE 15.6) ) 

IF  (GTYP.EQ.l)  WRITE (41,69) 

69  FORMAT ( ///l 5 X, 'NARROW  GAUSSIAN') 

IF  (GTYP.EQ.2)  WRITE(41,70' 

70  FORMAT (///16X, 'WIDE  GAUSSIAN') 

WRITE (41,71) 

71  FORMAT (///2X, 'FILTER  LENGTH' , 5X , 'SMABER/L  ,7X, 
♦SMSQER/L'//) 

WRITE (41,11) (FTL (I ) ,GSMBER ( I ) ,GSMQER (I) ,1=1, K) 

WRITE (41,72) 

72  FORMAT (///2X, 'FILTER  LENGTH' , 5X , 'SMABER/M' , 7X , ' 
*SMSQER/M'//) 

WRITE (41,11)  (FTL (I)  , GSMBHR ( I ) , GSMQHR ( I ) ,1=1, K) 
WRITE (41,73) 

73  FORMAT (///2X, 'FILTER  LENGTH' , 2X , 'SMSQER/ (NT+M) '//) 
WRITE (41,12) (FTL (I) ,GVARHF (I ) ,1=1, K) 

IF (GTYP.EQ. 1)  WRITE (41,69) 

IF'GTYP  EQ.2)  WRITE (41,70) 

WRITE (41,74) 

74  FORMAT (///2X, 'FILTER  LENGTH' , 5X , 'SMABDF/M' , 7X , ' 
♦SMSQDF/M'//) 

WRITE (41,11) (FTL (I) , GSMBDH ( I ) ,GSMQDH (I) ,1=1, K-l) 
WRITE (41,75) 

75  FORMAT '///ov, 'FILTER  LENGTH' , 2X , 'SMABDF/ (NT+M) ' , 
*2V,'SMSQDF/ (NT+M) '//) 

WRITE (41, 11)  (FTL  'I)  ,GSMABD (I ) ,GSMSQD(I)  ,1=1. K-l) 


non 
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C 

60  RETURN 

END 

DIFH  - DIFFERENCE  BETWEEN  HA  _HN 

SUBROUTINE  DIFH (HO, SMBDHM , SMQDHM , INDEX ,M, NT  SMABD , 
1 SMSQD) 

IMPLICIT  DOUBLE  PRECISION (A-H ,0-Z ) 

DIMENSION  HO (4200) ,HA(4200) , ADFMHN (100) ,ADNT(5000) 
IF  ( INDEX . EQ . 1 ) GO  TO  10 
IF  (INDEX. GT.l)GO  TO  20 
10  DO  15  1=1, M+NT 

15  HA ( I ) =HO ( I ) 

GO  TO  100 
20  SMBDHM® 0 . 

SMQDHM® 0. 

SMABD® 0 . 

SMSQD=0 . 

DO  25  1=1 ,M 

ADFMHN { I ) =DABS 'HA ( (NT/2) *INDEX+I ) -HO (NT/2+1' ' 

S MB  DHM®  SMB  DHM+ ADFMHN (I) 

SMQDHM=SMBDHM+ ADFMHN  1 1 t **2 
25  CONTINUE 

DO  30  1=1, NT+M 

ADNT(I)=DABS'HA(  (NT/2)*  ( INDEX- 1)  +1)  -HO  (I)  ) 

SMABD® SMABD+ADNT ( I ) 

SMSQD® SMS QD+ADNT ( I ) **2 
30  CONTINUE 

SMBDHM=SMBDHM/M 
SMQDHM®  SMQDHM/M 
SMABD=SMABD/ (NT+M) 

SMSQD=SMSQD/ (NT+M) 

100  RETURN 

END 
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PROGRAM  NOS 2B. FOR 
C 
C 

DIMENSION  H ( 0/255) ,G(0/255) rHP(0/255) ,HZ (0/511) , 

* HN'0/51 1 ' , ER (500) f HOLD (0/511) ,ERR(100,5) f 

* OPTER (100 ,30,2) ,SVSNR2 (100,30) ,ERIT(900 , 2) , 

* ADDNS (50)  ,MXSNR(50)  ,MNSNR'50)  ,OPTIT (100 , 30 , 2)  , 

* AVITNM (40,2) ,SDITNM (40 , 2) ,ERBFM (100 , 30 , 2) ,AVSNR2 (50) 

INTEGER  P , Z , ANS , GTYP , OFL , SNRN02 , Q 
REAL  MXSNR,MNSNR, MINER 1 ,MINER2 
L = 0 

C ENTER  THE  DATA 

TYPE  5 

5 FORMAT  ("  ENTER  1 FOR  NAR.  G,2=WIDED 

ACCEPT  20, GTYP 
CALL  INPUT (N,M,H,G) 

C ADD  NOISE 

TYPE  10 

10  FORMAT ( * CHOOSE  1 FOR  ORD  DEP  NOISE , 2=CONSTANT  ) 

ACCEPT  20, ANS 
20  FORMAT  f I ) 

45  CALL  SCFCTR ( SF , SFMIN  *,L) 

50  IF  (ANS.EQ.l)  CALL  ORDNOI (H  HZ, HP, SF, RMS 

* , SNR,M,N) 

IF  (ANS .EQ. 2)  CALL  CONST (H ,HZ ,HP ,SF 

* , RMS , SNR , M , N ) 

IF  (ANS .EQ. 3)  CALL  BOTH (H ,HZ ,HP ,SF ,RMS , 

* SNR,M,N) 

C 

C CALCULATE  AVERAGE  SNR  FOR  100  NOISE  ADDITIONS  _SD  — 

C CONTINUE  ADDING  NOISE  — FOR  100  WITHIN  +/-.5SD  RANGE 
C SMOOTH  RESTORE  — CALCULATE  ERROR  AT  EACH  ITERATION 
C “ 

CALL  ERROR 'K,M,N,H,ER  SNR , L , ERR , SF , OPTIT  SVSNR2 , 

* SNRN02 ,NM2K , ADDNS , HP ,G ,HZ ,NMRES , OPTER, ERBFM) 

IF  (K.LE. 100) GO  TO  50 

IF  (SNRN02 .LT. 100) GO  TO  50 
IF  (SF.GT. SFMIN) GO  TO  45 

CALL  OUTPUT (ERR ,L ,NM2K , OPTIT ,SNRN02 ,SVSNR2 , GTYP , 

* ANS , ADDNS , OPTER , ERBFM ) 

STOP 

END 

C 

C INPUT  ENTERS  THE  DATA 

C 

SUBROUTINE  INPUT (N ,M ,H ,G) 

DIMENSION  H(0/255) ,G(0/255) 

INTEGER  IFL 
TYPE  110 

110  FORMAT  ('  ENTER  SIZE  OF  H" ) 

ACCEPT  120.M 
120  FORMAT'D 

TYPE  130 

130  FORMAT ( ”*  ENTER  SIZE  OF  G,ODD") 
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ACCEPT  120 ,N 
M=M-1 
N=N-1 
TYPE  140 

140  FORMAT ( * ENTER  THE  INPUT  FILE  ',$) 

ACCEPT  120  , IFL 

READ (IFL, 160) (H(I) ,1=0, M) 

READ (IFL, 160) (G(I) ,1=0, N) 

160  FORMAT (4G) 

RETURN 

END 

C 

C ENTER  SCALE  FACTORS 

C 

SUBROUTINE  SCFCTR ( SF , SFMIN , K , L ) 

IF  (L.OT1  1 ' GO  TO  47 
TYPE  30 

30  FORMAT ( " ENTER  MAX  NOISE  SCALE  FACTOR  ') 

ACCEPT  40-SF 

TYPE  3 1 

31  FORMAT  t ' ENTER  MIN  NOISE  SCALE  FACTOR  ') 

ACCEPT  40, SFMIN 

40  FORMAT (G) 

K=1 

L=1 

GO  TO  50 

47  SF=SF/2 . 0 

K=1 

50  RETURN 

END 
C 
C 

C SMOOTH,  RESTORE  _ERROR  AT  EACH  ITERATION 

C 

C 

SUBROUTINE  SMRSER (N ,M,HP ,G ,HN ,K ,L  HOLD, HZ, H NMRES , 

* OPTIT , SNRN02 ,OPTER) 

DIMENSION  H (0/255) ,HP(0/255) ,HN(0/511' ,HZ (0/755' , 

* G(0/255)  ,HOLD(0/511'  ot>tit '100 , 30 , 2)  ,ERIT '900 , 2)  , 

* OPTER (100,30,2) 

INTEGER  P , Q , SNRN02 
REAL  MINERl ,MINER2 

C 

IF  (SNRN02 .GT . 1 .OR.L.GT . 1)  GO  TO  60 
C 

TYPE  55 

55  FORMAT ( " ENTER  MAX  NUMBER  OF  RESTORATIONS  " ) 

ACCEPT  5 8, NMRES 
58  FORMAT (I) 

C 

IF  'NMRES. EQ.0)  GO  TO  70 
C 

C SMOOTH  AND  RESTORE  EACH  HP 

C 
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60  ITNM=1 

62  IF  (ITNM.GT.NMRES)  GO  TO  70 

C 

IF  (ITNM.GT.l)  GO  TO  65 
CALL  SMOOTH (N,M, HP ,G,HN) 

GO  TO  66 
C 

65  CALL  RESTOR (N ,M -G ,HN ,HOLD ,HZ ) 

C 

C CALCULATE  ERROR  AT  EACH  ITERATION 

C 

66  CALL  ERRITR(N,M, ITNM, NMRES. H,HN,K,L, ERIT, OPTIT, 

* SNRN02 ,OPTER) 

C 

ITNM=ITNM+1 

68  FORMAT  < G) 

69  FORMAT  M ( 1 4 ) ) 

GO  TO  62 

70  TYPE  6 9 , NMRES , ITNM , K , L 
RETURN 

END 

C 

C CALCULATE  ERROR  AT  EACH  ITERATION 

C 

SUBROUTINE  ERRITR (N  ,M , ITNM , NMRES , H , HN , K , L , ERIT , OPTIT , 

* SNRN02  ,OPTER) 

DIMENSION  ERIT (900 ,2)  ,OPTIT ( 100 , 30 , 2)  fH(0/255)  , 

* HN^O/511) ,OPTER ^ 100 , 30 f 2) 

INTEGER  P ,Qf SNRN02 

REAL  MINERl f MINER2 
30  FORMAT (I) 

40  FORMAT ( 1PE16 . 8 ' 

IF  f ITNM.GT. 1)  GO  TO  10 

11=0 
12=0 
IND=0 
10  P=N/2 

SUM=0 . 

SIGMA=0 . 

DO  50  1=0 ,M 
Q=I+P 

TEMP=H  'I)-HN(Q) 

SUM=SUM+ABS (TEMP) 

S I GMA= S I GMA+TEMP  * TEMP 
50  CONTINUE 

ERIT ( ITNM , 1) =SUM/ (M+l ) 

ERIT f ITNM, 2) =SQRT (SIGMA/ (M+l) ) 

IF  riTNM.GT.l'OO  t»0  80 
MINERl=ERIT (1,1) 

OPITNl=l 
MINER2=ERIT (1,2) 

OPITN2=l 

IF  ^ ITNM.EQ. 1)  GO  TO  70 
IF  (II .EQ . 1) GO  TO  200 


80 
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IP  (ERIT (ITNM , 1) .LE.MINERl)  MINERl=ERIT ( ITNM , 1 ) 

IF  (ERIT (ITNM, 1) .EO.MINERl)  0PITN1=ITNM 
IF  (ERIT (ITNM , 1)  .GE .ERIT  (ITNM-1 , 1)  ) 11=1 
DERIT1=ABS (ERIT (ITNM, 1) -ERIT (ITNM-1 , 1) ) /ERIT (ITNM-1 , 1) 
ERT1=ABS (ERIT ( ITNM, 1) -ERIT (ITNM- 1,1) ) 

IF  'DERIT1. LE. 0.0001. OR. ERT1.LE. 0.0001)  Il=l 

200  IF  (I2.EQ.1)  GO  TO  300 

IF  f ERIT (ITNM, 2) .LE.MINER2)  MINER2=ERIT ( ITNM , 2 ) 

IF  (ERIT 'ITNM, 2) .EQ.MINER2)  OPITN2=ITNM 
IF  (ERIT 'ITNM, 2) .GE. ERIT (ITNM-1, 2) ) 12=1 

DERIT2=ABS (ERIT (ITNM, 2) -ERIT (ITNM-1 , 2 ) ) /ERIT ( ITNM-1 , 2) 
ERT2=ABS (ERIT (ITNM, 2) -ERIT (ITNM- 1,2) ) 

IF  (DERIT2. LE. 0.0001. OR. ERT2.LE. 0.0001)  12=1 
300  IF  (I1.EQ.1.AND.I2.EQ.1)  IND-1 

IF  'IND.NE. 1. AND. ITNM. NE.NMRES)  GO  TO  70 
ITNM=NMRES 

OPTIT (SNRN02 ,L  l)=OPITNl 
OPTIT ( SNRN02 , L 2'=OPITN2 
OPTER (SNRN02 ,L , 1) =MINER1 
OPTER  t SNRN02 ,L , 2) =MINER2 
75  FORMAT (8 (1PE16.8) ) 

77  FORMAT (G) 

70  RETURN 

END 
C 
C 

C ERRORS 

C 

C 

SUBROUTINE  ERROR ( K , M , N , H , ER , SNR , L , ERR , SF , OPTIT , SVSNR2 , 

* SNRN02 ,NM2K ,ADDNS ,HP ,G,HZ ,NMRES , OPTER, ERBFM) 

DIMENSION  H ( 0/255)  ,ER(500)  ,ERR(100,5)  ,OPTIT ( 100 , 30 , 2)  , 

* SVSNR2 (100,30) ,ADDNS(50) ,HP(0/255) ,HN(0/511) ,G(0/255) , 

* HZ (0/255) ,HOLD ( 0/511) , OPTER (100 , 30 , 2) ,ERBFM ( 100 , 30 , 2) 
REAL  MINER1 ,MINER2 

INTEGER  P ,0,SNRN02 
ER  '")  =SNR 
K = K+l 

IF  ^ .LE .100)  GO  TO  60 
C 

C OUTPUT  RESULTS  _AVESNR , VARSNR , SDSNR 
C 

K = K-l 

IF  fK.GT. 100) GO  TO  100 
AVESNR=  0 . 

VARSNR=0 . 

SDSNR=0 . 

SNRNO2=0 
DO  50  1=1, K 

5 0 AVESNR= AVESNR+ER ( I ) 

AVESNR=AVESNR/K 
DO  52  1=1, K 

5 2 VARSNR=VARSNR+ ( (ER ( I ) -AVESNR) * * 2 ) 

VARSNR=VARSNR/K 
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SDSNR=SQRT (VARSNR) 

C 

C CALCULATE  OF  SNR'S  IN  SDSNR  RANGE  _DO  CALCULATIONS 
C 

SNRMX2=AVESNR+SDSNR/2 
SNRMN  2= AVESNR-S  DSNR/ 2 . 

100  IF  (K.LE. 100) GO  TO  105 

IF  (ER'tf) . GE . SNRMN2 . AND . ER (K ) . LE . SNRMX2 ) SNRN02- 

* SNRN02+1 

IF  *ER (K)  . GE . SNRMN  2 . AND . ER ( K ) .LE.SNRMX2) SVSNR2 
* (SNRN02,L)=ER(*) 

IF  (ER(K) .GE .SNRMN2 . AND.ER (K) .LE.SNRMX2)  CALL  SMRSER 
* (N , M , HP , G , HN , K , L , HOLD , HZ , H , NMRES f OPTIT , SNRN02 , OPTER) 

IF  'ER,V) .LT.SNRMN2.0R.ER(K) .GT.SNRMX2)  GO  TO  53 

C 

C CALCULATE  ERROR  BEFORE  MORRISON 
C 

TEMP=0 . 

SUM=0. 

SIGMA=0 . 

DO  200  1=0 fM 
TEMP =H (I) -HP (I) 

SUM=SUM+ABS (TEMP) 

S I GMA=S IGMA+TEMP * * 2 
200  CONTINUE 

ERBFM ( SNRNO 2 , L l'=SUM/(M+l' 

ERBFM (SNRN02  fL , 2) =SQRT (SIGMA/ (M+l) ) 

C 

C 

TYPE  650 

650  FORMAT < /'  IN  ERROR  "/) 

TYPE  57, OPTIT (SNRN02,L,1) 

TYPE  57, OPTIT (SNRN02,L  2^ 

C 

C 

**>  IF  'SNRN02  .LE . 100)  NM2K=K 

IF  (SNRN02.LT. 100) GO  TO  59 
IF  (SNRNO 7 EQ. 100) GO  TO  65 
5 4 FORMAT ( I ) 

55  FORMAT (8 (1PE16.8)  ) 

57  FORMAT (G) 

105  ERR (L , 1) =SF 

ERR ( L , 2 ) = AVESNR 
ERR (L  5 ) =SDSNR 

59  K=K+1 

IF  (SNRN02.LT. 100) GO  TO  60 
65  AD DNS (L) =NM2K 

C 

TYPE  68 

68  FORMAT (/////"  OF  SNR  S COMPLETED  ') 

67  TYPE  54, L 

C 

L=L+1 

60  RETURN 
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END 


I 


oooo  noo  non  o o 'i  non  non  oooo  non  ono  oo 


PROGRAM  DECON . FOR 
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DOUBLE  PRECISION  GT , GTH , DATA , GTR 

DIMENSION  ER (500) ,HOLD(512) ,ERR(30,5) ,ADDNS'30) , 

* MXSNR '30) , 

* SVSNR2 (200,30) ,ERIT(900,2) ,AVSNR2 (30) , MNSNR (30) , 

* OPTIT(100,30,20) , 

* AVITNM (30,2) ,SDITNM (30 , 2) ,OPTER ( 100 , 30 , 2) , 

* ERBFM(100 ,30 , 2)  , 

* H'256) ,G (256) ,F(256) ,GTR(1025) ,HO(1500) ,GT(2050) , 

* HZ (512) ,HN (256) ,HP(256) ,HAF(1500) ,HBF(1500) ,FE(256) 
INTEGER  P Z , ANS , GTYP , SNRN02 , ERTYP 

REAL  MXSNR, MNSNR, MINER1 ,MINER2 
LI=0 


ENTER  DATA  _NUMBER  OF  POINTS  IN  GT 

CALL  ENTERD ( GTYP • N , M - L G ,H ,F ,NT ,SF ,SFMIN ,ANS ,NMRES , 
* NMSNR , NMERWD , ERTYP , CON , CON i ' 

ADD  ZEROS  WITH  PREPGT  FOR  LENGTH  NT  _IMG.  = 0 

CALL  PREPGT (GT, NT, N,G) 

CALL  FFT (GT ,NT,-1) 

CALCULATE  MAGNITUDE  OF  TRANSFORM  GT 

CALL  MAGGT ( GT , NT ) 

CALCULATE  1/TRANSFORM  GT 

CALL  INVTRN ( GT , NT ) 

RACK  TO  FUNCTION  DOMAIN 

CALL  FFT  (GT  ,NT  , + d 

SHIFT  PEAK 

CALL  SHIFGT (GT ,NT) 

NORMALIZE  INVERSE  IMPULSE  RESPONSE  _MAKE  SYMETRIC (ODD) 
CALL  NRMSMR ( GT , NT ) 

DELETE  IMAGINARY  PART  OF  GT 
CALL  GTRE AL ( GTR , GT , NT ) 

G-INV  IS  NOW  CALCULATED  WILL  NOW  ADD  NOISE  TO  H 

CREATE  FE  TO  WEIGHT  ERROR  BY  F - IF  ERTYP  EQUALS  2 
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C 

IP  (ERTYP. EQ. 2)  CALL  WEIGHT (F ,L ,M, PE) 

C 

C CALCULATE  AVERAGE  SNR  FOR  100  NOISE  ADDITIONS  _SD 

C CONTINUE  ADDING  NOISE  — FOR  NMSNR  WITHIN  +/-.*5SD 

C 

45  CALL  SCFCTR (SF ,SFMIN , K ,LI ) 

50  IF  (ANS.EQ.l)  CALL  ORDNOI 'H  HZ,HP,SF,RMS 

* , SNR,M,N) 

IF  fANS.EQ.2)  CALL  CONST (H , HZ ,HP , SF 

* ,RMS,SNR,M,N) 

IF  (ANS.EQ.3)  CALL  BOTH (H  ,HZ ,HP ,SF f RMS , 

* SNR,M,N' 

r 

C DO  DECONVOLUTION  BEFORE  MORRIS.  AND  AFTER  MORRIS. 

C AT  EACH  ITTERATION  _CALC.  ERROR  OF  DECONVOLVED 

C RESULT  BY  COMPARING  TO  F- INPUT 

C 

CALL  ERROR ' F, M -N,H,ER, SNR, LI , ERR, SF,OPTIT  SVSNR2 , 

* HN , SNRNO? - MM2K , ADDNS , HP , G , HZ , NMRES , OPTER , ERBFM ,NT , 

* L , GTR , F , MRS , NMSNR , NMERWD , ERTYP , FE , CON , CONI ) 

C 

C 

IF  (K.LE. 100) GO  TO  50 
IF  (SNRN02.LT. NMSNR) GO  TO  50 
IF  (SF . GT . SFMIN) GO  TO  45 
C 
C 

CALL  OUTPUT (ERR, LI  NM2K ,OPTIT ,SNRN02 ,SVSNR2 ,GTYP  - 

* ANS, ADDNS, OPTER, ERBFM) 

STOP 

END 

C 

C 

C 

C 

C ENTER  DATA  _NUMBER  OF  POINTS  NT 

C 

SUBROUTINE  ENTERD ( GTYP ,N,M,L,G,H,F,NT,SF, SFMIN , 

* ANS  NMRES , NMSNR , NMERWD , ERTYP , CON , CONI ) 

DIMENSION  G(256)  ,H(256)  ,F  (256) 

INTEGER  GTYP  ANS, ERTYP 

1 FORMAT (I) 

TYPE  2 

2 FORMAT ('  ENTER  1 FOR  NARROW  G — 2 FOR  WIDE  G ') 

APPT7'DrP  1 fZTYP 

CALL  INPUT (N,M,L,G,H,F  GTYP) 

TYPE  3 

3 FORMAT ( " ENTER  NUMBER  OF  POINTS  IN  G-INV  ') 

ACCEPT  1 ,NT 

TYPE  4 

4 FORMAT ('  CHOOSE  1 FOR  ORD  DEP  NOISE , 2=CONSTANT  ') 
ACCEPT  1 , ANS 

TYPE  5 


5 ’"ORMAT  ( * ENTER  MAX  NOISE  SCALE  FACTOR  ') 

ACCEPT  40  ,SF 

TYPE  6 

6 FORMAT ('  ENTER  MIN  NOISE  SCALE  FACTOR  ) 

ACCEPT  40  f SFMIN 

TYPE  7 

7 FORMAT ( " ENTER  MAX  NUMBER  OF  RESTORATIONS  ) 
ACCEPT  1 ,NMRES 

TYPE  8 

8 FORMAT ('  ENTER  NUMBER  OF  SNR  IN  +/“  • 5SD  RANGE  ) 
ACCEPT  1 rNMSNR 

TYPE  9 

9 FORMAT ('  ENTER  ERROR  WINDOW  SIZE  — L OR  M ") 
ACCEPT  1 , NMERWD 

TYPE  10 

10  FORMAT ( " TYPE  1 FOR  Ll  _L2  ERROR, 2 FOR  ERROR 

* WEIGHTED  BY  F" ) 

ACCEPT  1 , ERTYP 
TYPE  11 

11  FORMAT ('  CHOOSE  CONVERGENCE  CRITERION  = 

* (Ei-(Ei-l)  )/Ei-l)  ') 

ACCEPT  40, CON 

TYPE  12 

12  FORMAT ( * CHOOSE  CONVERGENCE  CRITERION  = 

* (Ei-(Ei-l))  ') 

ACCEPT  40, CONI 

40  FORMAT (G) 

RETURN 

END 

C 

C INPUT  ENTERS  THE  DATA 

C 

SUBROUTINE  INPUT (N ,M,L ,G ,H ,F  OT YP) 

DIMENSION  H (256)  ,G (256)  ,F  (256) 

INTEGER  IFL ,GTYP 
TYPE  110 

110  FORMAT  ('  ENTER  SIZE  OF  H"* ) 

ACCEPT  120, M • 

120  FORMAT (I) 

TYPE  130 

130  FORMAT 1 ' ENTER  SIZE  OF  G ,ODD  ') 

ACCEPT  120 ,N 
TYPE  135 

135  FORMAT ( " ENTER  SIZE  OF  F ') 

ACCEPT  120, L 
TYPE  140 

140  FORMAT ( " ENTER  THE  INPUT  FILE  ',$) 

ACCEPT  120, IFL 

READ ( IFL  160) (H(I) ,I=1,M) 

READ (IFL ,160) (G(I) ,I=1.N) 

READ (IFL ,160) (F'l) ,I=1,L) 

160  FORMAT (4G) 

RETURN 

END 
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PREPGT 

SUBROUTINE  PREPGT (GT , NT ,N  G) 

DOUBLE  PRECISION  GT 
DIMENSION  GT (2050) , G (256) 

DO  1 1=1, N 
GT (2*1-1)  = G (I) 

GT ( 2*1 ) = 0.0 
DO  2 I=N+1,NT 
GT ( 2*1-1) =0 . 0 
GT ( 2*1 ) =0 . 0 
RETURN 
END 

MAGGT 

SUBROUTINE  MAGGT (GT  NT) 

DOUBLE  PRECISION  GT 
DIMENSION  GT (2050) 

DO  1 1=1, NT 

GT (2*1-1) =DSQRT( (GT(2*I-1) **2)+<GT (2*1) **2) ) 
GT ( 2*1 ) =0 . 0 
RETURN 
END 

1/TRANS.  GT 

SUBROUTINE  INVTRN (GT  NT) 

DOUBLE  PRECISION  GT 
DIMENSION  GT (2050) 

DO  10  1=1, NT 

IF  (GT (2*1-1) .EQ.0)GO  TO  5 
GT (2*1-1) =1./GT( 2*1-1) 

GO  TO  10 
GT (2*1-1) =0 . 

CONTINUE 
RETURN 
END 

SHIFT-GT 

SUBROUTINE  SHIFGT (GT ,NT) 

DOUBLE  PRECISION  GT , GTH 
DIMENSION  GT (2050) , GTH (1024) 

DO  1 1=1, NT 
1 GTH ( I ) =GT ( I ) 

DO  S 1=1  NT 
5 GT ( I ) =GT (NT+I ) 

DO  10  1=1, NT 
10  GT (NT+I ) =GTH ( I ) 

RETURN 

END 


C 
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NRMSMR 

SUBROUTINE  NRMSMR (GT, NT) 

DOUBLE  PRECISION  GT 
DIMENSION  GT (2050) 

DO  5 1=1 . 2*NT 
GT  1 1 ) =GT ( I ) /NT 

MAKE  INV.  IMPULSE  RES.  SYMETRIC 
GT ( 1 ) =GT ( 1 ) /2 . 0 
GT (2*NT+1) =GT (1) 

RETURN 

END 

GT  REAL 

SUBROUTINE  GTREAL (GTR,GT ,NT) 
DOUBLE  PRECISION  GT ,GTR 
DIMENSION  GTR(1025) ,GT(2050) 

DO  10  1=1 ,NT+1 
GTR(I*  =GT  (2*1-1) 

CONTINUE 

RETURN 

END 


FFT  SUBROUTINE 

SUBROUTINE  FFT (DATA, NN  ISIGN) 

DOUBLE  PRECISION  DATA, TEMPR , TEMPI , THETA ,DSINTH , 
* WR,WI ,WSTPR,WSTPI 

DIMENSION  DATA (2050) 

INTEGER  N,NN, ISIGN 

N=2*NN 

J=1 

DO  5 1=1  N , 2 
IF  (I.GE.J)  GOTO  2 
TEMP R= DATA ( J) 

TEMPI =DATA (J+l) 

DATA ( J ) =DATA ( I ) 

DAT A ( J+ 1 ) =DATA ( 1+ 1 ) 

DATA ( I ) =TEMPR 
DATA (1+1 )=TEMPI 
M=N/2 

IF  (J.LE.M)  GO  TO  5 
J=J-M 
M=M/2 

IF  (M.GE.2)  GO  TO  3 
J=J+M 
MMAX=2 

IF  (MMAX.GE.N'  «0  TO  10 
ISTEP=2*MMAX 

THET A=  6.2831853 /FLOAT (ISIGN  * MMAX ) 

DSINTH=DSIN 'THETA/2  1 
WSTPR=-2 . *DSINTH*DSINTH 
WSTPI=DSIN (THETA) 
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WR=1. 

WI=0. 

DO  9 M=1 ,MMAX , 2 
DO  8 I=M,N,ISTEP 
J=I+MMAX 

TEMPR= WR*  DATA ( J) -WI*DATA ( J+l ) 

TEMP I =WR* DATA ( J+l) +WI*DATA ( J) 
niTA ' J) =DATA (I) -TEMPR 
DATA  t J+ 1 ' = DATA ( I + 1 ) -TEMP I 
DATA  ( I ) =DATA ( I ) +TEMPR 

8 DATA (1+1) =DATA (1+1) +TEMPI 
TEMPR=WR 

WR=WR*WSTPR-WI *WSTPI+WR 

9 WI=WI*WSTPR+TEMPR*WSTPI+WI 
MMAX=ISTEP 

GO  TO  6 
10  RETURN 
END 
C 

C CREATE  FE  TO  WEIGHT  ERROR  BY  F 

C 

SUBROUTINE  WEIGHT (F,L,M,FE) 

DIMENSION  F (256) ,FE (256) 

DO  10  I=l,M/2-L/2 

10  FE ( I ) = 1 . 

DO  20  1=1, L 

IF  fF'I'.LT.l)  FE (I+M/2-L/2) =1 . 

IF  (F'I).GE.l)  FE(I+M/2-L/2)=F'I) 

20  CONTINUE 

DO  30  I=M/2+L/2+l,M 
30  FE ( I ) = 1 . 

RETURN 

END 

C 

C DE-CONVOLUTION  PROGRAM 

C 

SUBROUTINE  DECONV (GTR ,HI ,HO,M,NT  N , MRS ) 

DOUBLE  PRECISION  GTR , DPH I , DPHO , TEMP 

DIMENSION  GTR (1025) , HI '256) ,HO(1500) ,DPHI (256) , 

* DPHO ( 1500 ) 

INTEGER  A,B,C,D,E,F 
C COMPUTE  CONVOLUTION 

IF  (MRS.EQ.0)  J=M 
IF  (MRS.OT  O'  J=M+N-1 
DO  1 1=1, J 

1 DPHI (I) =HI (I) 

IF  (MRS.EQ.0)  K=NT+M 
IF  (MRS • GT . 0)  K=NT+M+N-1 
DO  10  1=1 ,K 
DPHO (I) =0. 

A=1 

IF  (MRS.EQ.0)  B=I— M+l 
IF  (MRS.GT.0)  B=I-M-N+2 
IF  (A.GE.B)  C=A 
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IF  (A.LT.B)  C=B 
D=I 

E=NT+1 

IF  (D.LT.E)  F=D 
IF  (D.OF  E)  F=E 
DO  5 J=C,F 

TEMP=GTR(J) *DPHI (I-J+l ) 

5 DPHO ( I ) =DPHO ( I ) +TEMP 

HO ( I ) =DPHO ( I ) 

10  CONTINUE 

RETURN 
END 
C 
C 

C ENTER  SCALE  FACTORS 

C 

SUBROUTINE  SCFCTR(SF,SFMIN,K,LI) 

IF  fLI.GT.DGO  TO  47 

K=1 

LI=1 

GO  TO  50 

47  SF=SF/2 . 0 

K=1 

50  RETURN 

END 
C 

C ORDNOI  ADDS  ORDINATE  DEPENDENT  NOISE 

C 

SUBROUTINE  ORDNOI <H , HZ , HP , SF , RMS ,SNR,M,N) 
DIMENSION  H ( 256) ,HZ (256) ,HP (256) 

REAL  MAXIM 
INTEGER  Q,L 
Q=(N+l)/2 
RMS=0 . 

MAXIM=H (1) 

DO  210  1=1, M 
SD  =SQRT ( SF  * H (I) ) 

IF(H(I) .LT. .0000001)  SD  =SQRT ( SF  * .0000001) 
CALL  GAUSS  (SD,H(I)  ,HP(I)  ) 

IF  (H'l)  .GT. MAXIM)  MAXIM=H(I' 

IF  (HP ( I ) .LT . 0 . ) HP (I) =-HP (I) 

L=I+Q-1 
HZ (L*  =HP  (I) 

RMS= (HP ( I ) -H ( I ) ) * * 2+RMS 
210  CONTINUE 

RMS=SQRT (RMS/ (M) ) 

IF  (RMS.EQ.0.)  GOTO  215 
SNR=MAXIM/RMS 
215  RETURN 

END 
C 

C CONST  ADDS  CONSTANT  NOISE 

C 

SUBROUTINE  CONST (H,HZ ,HP , SF ,RMS ,SNR,M,N) 
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DIMENSION  H (256) ,HZ (512) ,HP (256) 

REAL  MAXIM 

INTEGER  Q ,L 

Q=  (N+l)/2 

RMS=0 . 

MAXIM=H (1) 

DO  230  1 = 1, M 

IF  (H(I) .GT. MAXIM)  MAXIM=H ( I ' 
SD=SQRT(SF) 

CALL  GAUSS  (SD,H(I)  ,HP'I)  ) 

IF  'HP (I) .LT.O.)  HP ( I ) =-HP ( I ) 

L=I+Q-1 

HZ 'L'=HP  (I) 

RMS=  (HP  (I)  -H  (I)  ) * * 2+RMS 
230  CONTINUE 

RMS=SQRT'RMS/(M) ) 

IF  (RMS.EQ.O.)  GO  TO  235 
SNR=MAXIM/RMS 
•5^5  RETURN 

END 


GAUSS  COMPUTES  RANDOM  NUMBERS 

SUBROUTINE  GAUSS (S ,AM,V) 

A=0 . 0 

DO  1 1=1,12 
1 A= A+RAN  ' 1 ) 

V=  (A-6 . 0)  *S  + AM 

RETURN 

END 


SMOOTH,  RESTORE  _ERROR  AT  EACH  ITERATION 


SUBROUTINE  SMRSER 'N ,M ,HP , G , K , LI , HOLD ,HZ ,H ,NMRES , 

* 0PTIT,SNRN02 ,OPTER,L,GTR»F ,NT  MRS , HN , NMERWD , ERTYP , 

* FE, CON, CONI) 

DOUBLE  PRECISION  GTR 

DIMENSION  H (256) , HP (256) ,HN(256) , HZ (256) ,G(256) , 

* GTR (1025) ,HOLD (512) ,OPTIT ( 100 , 30 , 2) ,ERIT(900,2) , 

* OPTER (100,30,2) ,HAF(1500) ,F'256) ,FE(256) 

I NTEGER  P , Q , SNRNO 2 , ERTYP 

REAL  MINER1 , MINER 2 

TYPE  1 

FORMAT  (/“*  IN  SMRSER  '/) 

IF  (NMRES.EQ.0)  GO  TO  70 
SMOOTH  AND  RESTORE  EACH  HP 
ITNM=1 
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62 

C 


C 

65 
C 
C 
C 

66 

C 

C 

C 


C 

C 

c 

c 

68 

69 

70 

C 

C 

C 

C 


405 


410 

420 


C 

C 

C 


IF  l ITNM . GT - NMRES ) GO  TO  70 

IF  (ITNM.GT . 1)  GO  TO  65 
CALL  SMOOTH  (N,M,HP  ** ,HN) 

GO  TO  66 

CALL  RESTORE  M .G ,HN  , HOLD , HZ  ) 
CALCULATE  ERROR  AT  EACH  ITERATION 


MRS = ITNM 

CALL  DECONV I GTR , HN  HAF,M,NT,N ,MRS) 


CALL  ERRITR (N  M, ITNM, NMRES ,H,HAF,K, LI ,ERIT,OPTIT, 
* SNRN02  ,OPTER,L ,F ,NT  NMERWD  fERTYP  fFE , CON , CONI) 

ITNM=ITNM+1 


FORMAT (G) 

FORMAT '5 (14) ) 

GO  TO  62 

RETURN 

END 

SMOOTH  DOES  THE  INITIAL  SMOOTHING,  AND  STORES 
THE  RESULT  IN  HN  HN=H*G 

SUBROUTINE  SMOOTH (N ,M,HP ,G ,HN) 

DIMENSION  HP (256)  ,G(256)  , HN  '256) 

INTEGER  A,B,C,D,E,F 
FORMAT (4G) 

DO  420  1=1 ,M+N-1 
HN (I) =0 . 

A=1 

B=I-N+1 

CALL  MAX (A ,B .C) 

D=I 

E=M 

CALL  MINm,E,F) 

DO  410  J=C,F 
TEMP=HP (J) *G (I-J+l) 

HN ( I ) =HN  1 1 > +TEMP 
CONTINUE 
CONTINUE 
RETURN 
END 


MAX  RETURNS  THE  LARGR  VALUE 
SUBROUTINE  MAX ( A ,B  C) 
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IF  'A.GT.B)  C=A 
IF  (A.LT.B)  C=B 
IF  (A.EQ.B)  OA 
RETURN 
END 

MIN  RETURNS  THE  SMALLER  VALUE 

SUBROUTINE  MIN (DfE  F) 

IF  (D.GT.E)  F=E 
IF  (D.LT.E)  F=D 
IF  (D.EQ.E)  F=E 
RETURN 
END 

RESTORE  DOES  RESTORING  ITERATIONS 
HOLD=HN-l 

HN=HOLD+ (HZ-HOLD) *G 

SUBROUTINE  RESTOR ^N ,M,G ,HN , HOLD ,HZ ) 

DIMENSION  S (512) ,V(1000) ,HP(256) ,G(256) ,HN(256) , 
* HOLD (512) ,HZ (512) 

INTEGER  P 
P=(N-l)/2 

DO  300  1=1 ,M+N-1 
S ( I ) =HZ  (I)-HN(I* 

00  HOLD ( I ) =HN ( I ) 

DO  CONVOLUTION  V=S*G 
DO  330  1=1  ,M+2*N-2 
V'I)=0. 

A=1 

B=I-N+1 

CALL  MAX (A  f B f C) 

D=I 

E=M+N-1 

CALL  MIN  (DrE,F) 

D<5  J=C  ,F 
TEMP=S (J‘  *G (I-J+l) 

20  V ( I ) = V ' I ) +TEMP 

30  CONTINUE 

ASSEMBLE  HN,  HN=HOLD  + V 
DO  340  I=1,M+N-1 
40  HN  f I ) =HOLD ( I ) +V ( I+P ) 

RETURN 

END 


CALCULATE  ERROR  AT  EACH  ITERATION 

SUBROUTINE  ERRITR'N  M , ITNM ,NMRES ,H  HAF , K , LI , ERIT , 

* OPTIT f SNRN02 , OPTER,L ,F ,NT  NMERWD ,ERTYP , FE .CON , CONI ) 
DIMENSION  ERIT (900,2) fOPTIT ( 100 , 30 f 2) ,H(256) , 

* HAF (1500) , F ( 256) fOPTER (100 , 30 , 2) ,HAGR(50,2) ,FE(256) 
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INTEGER  P n , SNRNO 2 , ERTYP 
REAL  MINER1 ,MINER2 
IF  (ITNM.GT.l)  GO  TO  10 
11=0 
12=0 
IND=0 

10  P=(  (N-l)/2)+NT/2 

SUM=0 . 

SIGMA=0. 

C 

IF  (ERTYP. EQ.l)  GO  TO  45 
C 

C CALCULATE  ERROR  1 _2  WEIGHTED  BY  F 
C 

IF  (NMERWD.EQ.L)  GO  TO  42 
DO  41  I=l.M'2-L/2 
S UM=  SUM+ AB S 'HAF (I+P) ) *FE  'I) 
SIGMA=SIGMA+ (HAF  'I+P> **2) *FE (I) 

41  CONTINUE 

42  DO  43  1=  fM/~-’-/2+l)  r (M/2+L/2) 

TEMP=HAF ( I+P ) -F (I-M/2+L/2) 
SUM=SUM+ABS (TEMP) *FE (I) 
SIGMA=SIGMA+ (TEMP**2)  *FE (I ) 

43  CONTINUE 

IF  'NMERWD.EQ.L)  GO  TO  59 

DO  44  I=M/2+L/2+l,M 
SUM=SUM+ABS (HAF (I+P) )*FE(I) 
SIGMA=SIGMA+ (HAF 'I+P) **2) *FE (I) 

44  CONTINUE 
GO  TO  59 

C 

C CALCULATE  ERROR  1 _2 
C 

45  IF  (NMERWD.EQ.L)  GO  TO  52 

DO  50  1=1, (M/2-L/2) 

SUM=SUM+ABS (HAF (I+P) ) 
SIGMA=SIGMA+HAF (I+P) **2 

50  CONTINUE 

52  DO  54  1= (M/2-L/2+1) , (M/2+L/2) 

TEMP=HAF (I+P) 'I-M/2+L/2) 
SUM=SUM+ABS (TEMP) 

S I GMA= S I GMA+TEMP  * * 2 
54  CONTINUE 

IF  (NMERWD.EQ.L)  GO  TO  59 
DO  58  1= (M/2+L/2+1) ,M 
SUM=SUM+ABS (HAF (I+P' ' 
SIGMA=SIGMA+HAF 'I+P) **2 

58  CONTINUE 
C 

C STORE  ERROR  EACH  ITERATION 
C 

59  ERIT ( ITNM , 1 ) =SUM/NMERWD 

ERIT ( ITNM , 2 ) =SQRT ( S I GMA/NMERWD ) 
IF  (ITNM.GT.l) GO  TO  80 
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C 

C FIND  OPTIMUM  ITERATION 
C 

MINER1=ERIT(1, 1) 

OPITNl=l 
MINER2=ERIT ( 1 , 2) 

OPITN2=l 

80  IF  (ITNM.EQ. 1)  GO  TO  100 

IF  'Il.EQ.l)GO  TO  200 
C 

C CHECK  FOR  MIN.  ERROR  1 
C 

IF  (ERIT 'ITNM, 1) .LE.MINER1)  MINER1=ERIT 'ITNM , 1 ) 

IF  'ERIT (ITNM, 1) .EQ.MINER1)  OPITNl=ITNM 
IF  'ERIT 'ITNM ,1) .GE.ERIT (ITNM-1 , 1)  ) 11=1 
C 

C CONVERGENCE  CRITERION  ERROR  1 
C 

DERIT1=ABS (ERIT  ' ITNM , 1 ) -ERIT ( ITNM- 1,1)) /ERIT ( ITNM-1 , 1 ) 
ERT1=ABS (ERIT (ITNM, 1) -ERIT ( ITNM-1, l) ) 

IF  'DERIT1 . LE.CON.OR.ERTl ,LE .CONI)  11=1 
C 

C PLOT  PRINT  OPT.  rn?CON.  FOR  ERROR  LI 
C 
C 

100 
11 


C15 

C 
C 
21 
22 
23 
C 

c 
c 

200 

C 

C CHECK  FOR  MIN.  ERROR  2 
C 

IF  (ERIT 'ITNM, 2) .LE.MINER2)  MINER2=ERIT ( ITNM , 2 ) 

IF  (ERIT  (ITNM , 2)  .EO.MINER2)  nt>xTN2=ITNM 
IF  (ERIT 'ITNM, 2) .GE.ERIT (ITNM-1, 2) ) 12=1 

C 

C CONVERGENCE  CRITERION  ERROR  2 
C 

DERIT2=ABS (ERIT (ITNM, 2) -ERIT (ITNM-1 , 2) ) /ERIT ( ITNM-1 , 2) 
ERT2=ABS (ERIT 'ITNM, 2) -ERIT 'ITNM- 1,2) ) 

IF  (DERIT2 .LE.CON.OR.ERT2 .LE.CON1)  12=1 

C 

C PLOT  PRINT  OPT.  DECON.  FOR  ERROR  L2 


IF  'Il.EQ.l)  GO  TO  15 
DO  11  1=1, M 

HAGR (1,1) =HAF ( I+NT/2+ (N- 1 ) /2 ) 

IF  (ITNM.EQ. 1)  GO  TO  150 
GO  TO  200 

WRITE  f 50 , 21)  (HAGR (1,1)  ,1*1 ,M) 
IT1=ITNM— 1 

WRITE (40 , 23) LI ,SNRN02 ,IT1 
WRITE (40,22) (HAGR(I,1) ,I=1,M) 
FORMAT (G) 

FORMAT (8 ( 1PE16 .8)  ) 

FORMAT (/"  DECON  AT  OPT.  Ll',318/) 


IF  (I2.EQ.1)  GO  TO  300 
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C 

C IP  (I2.EQ.1)  GO  TO  25 

150  DO  31  1=1, M 

31  HAGR (1,2) =HAF (I+NT/2+ (N-l) /2) 

IF  (ITNM.EQ. 1)  GO  TO  70 
GO  TO  300 

C25  WRITE (51, 21) (HAGR (I, 2) ,1=1, M) 

IT2=ITNM-1 

C WRITE (41 , 33) LI ,SNRN02 , IT2 

C WRITE(41,22) (HAGR(I,2) ,1=1, M) 

33  FORMAT  (/"*  DECON  AT  OPT.  L2',3I8/) 

C 

C 

C 

300  IF  (Il.EQ. 1.AND.I2.EQ. 1)  IND=1 

IF  ( IND . NE . 1 . AND . ITNM . NE . NMRES ) GO  TO  70 

C 

C END  ITERATIONS  AND  STORE  RESULTS 
C 

ITNM=NMRES 

OPTIT (SNRN02 ,LI , 1) =OPITNl 
OPTIT (SNRN02 ,LI , 2) =OPITN? 

OPTER (SNRN02 , LI , 1) =MINER1 
OPTER (SNRN02 , LI , 2 ) =MINER2 
C 
C 

70  RETURN 

END 
C 
C 

C ERRORS 

C 

C 

SUBROUTINE  ERROR  'v  ,M,N -H  ,ER , SNR, LI , ERR  SE* , OPTIT  • 

* SVSNR2 ,HN,SNRN02 ,NM2K,ADDNS ,HP ,G,HZ  NMRES , OPTER, 

* ERBFM,NT,L,GTR  F , MRS ,NMSNR,NMERWD ,ERTYP ,FE , CON, CONI) 
DOUBLE  PRECISION  GTR 

DIMENSION  H ( 256)  ,ER(500)  ,ERR(30,5)  , OPTIT '100 , 30 , 2)  , 

* HN (256) ,SVSNR2 (100 ,30) , AD DNS (30) , HP (256) ,G(256) , 

* F (256)  , GTR (1025)  ,HZ (256)  , HOLD (512)  ,HBF(1500)  , 

* OPTER '100, 30, 2) ,ERBFM ( 100 , 30 , 2) ,FE(256) 

REAL  MINERl ,MINER2 

INTEGER  P ,Q,SNRN02 ,ERTYP 
ER (K) =SNR 
K = K+l 

IF  (K.LE. 100) GO  TO  60 
C 

C OUTPUT  RESULTS  _AVESNR , VARSNR , SDSNR 
C 

K = K-l 

IF  (K.GT.IOO)GO  TO  100 
AVESNR=  0 . 

VARSNR=0. 

SDSNR=  0 . 
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SNRNO ?=0 
DO  50  1=1 /K 

5 0 AVESNR= AVESNR+ER ( I ) 

AVESNR=AVESNR/K 
DO  52  1=1, K 

5 2 VARSNR= VARSNR+ ( (ER (I) - AVESNR ) * * 2 ) 

VARSNR=VARSNR/K 
SDSNR=SQRT (VARSNR) 

CALCULATE  OF  SNR'S  IN  SDSNR  RANGE  _DO  CALCULATIONS 

SNRMX2=AVESNR+SDSNR/2 . 

SNRMN  2= AVESNR-S  DSNR/ 2 . 

0 IF  (K.LE.IOO)GO  TO  105 

IF  (ER (K)  .GE .SNRMN 2 .AND.ER (K)  . LE . SNRMX  2 ) SNRNO  2= 

* SNRNO 2+1 

IF  (ER (K) .GE. SNRMN 2. AND.ER (K) . LE . SNRMX 2 ) SVSNR2 

* (SNRN02 ,LI' =ER '") 

IF  (ER(K) .GE.SNRMN2. AND.ER (K) .LE.SNRMX2)  CALL 

* SMRS ER (N , M , HP , G , K , L I , HOLD , H Z , H , NMRES , OPTIT , SNRNO 2 , 

* OPTER , L , GTR , F , NT , MRS , HN , NMERWD , ERTYP , FE , CON ,CONl ) 
IF  'ER(K) .LT.SNRMN2 .OR.ER (K) .GT.SNRMX2)  GO  TO  53 

CALC.  ERROR  BEFORE  MORRIS.  BY  CONVOL.  NOISY  H _G-INV 


MRS=0 

CALL  DECONV ( GTR , HP , HBF , M , NT , N , MRS ) 


TEMP=0 . 

SUM=0 . 

SIGMA=0 . 

IF  'ERTYP.EQ. 1)  GO  TO  88 

CALCULATE  ERROR  1 _2  WEIGHTED  BY  F 

IF  'NMERWD. EQ.L)  GO  TO  82 
DO  81  1=1  ,M/'*-r  /2 
SUM=SUM+ABS (HBF (I+NT/2) ) *FE (I) 
SIGMA=SIGMA+ (HBF (I+NT/2) **2) *FE (I) 

81  CONTINUE 

82  DO  83  1= (M/2-L/2+1) , (M/2+L/2) 
TEMP=HBF (I+NT/2) -F (I-M/2+L/2) 
SUM=SUM+ABS (TEMP) *FE (I) 
SIGMA=SIGMA+ (TEMP**2) *FE (I) 

83  CONTINUE 

IF  'NMERWD. EQ.L1  GO  TO  410 
DO  84  I=M/2+L/2+l,M 
SUM=SUM+ABS (HBF (I+NT/2) ) *FE  'I' 
SIGMA=SIGMA+ (HBF (I+NT/2) **2) *FE 'I) 

84  CONTINUE 
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GO  TO  410 
C 

C COMPARE  DECON  RESULT  TO  P-INPUT  OVER  H OR  P - WINDOW 
C 

88  IF  (NMERWD.EQ.L)  GO  TO  210 

DO  200  1=1, (M/2-L/2) 

SUM=SUM+ABS (HBF (I+NT/2) ) 

S I GMA= S I GMA+HB F (I+NT/2) ** 2 
200  CONTINUE 

210  DO  300  1= (M/2-L/2+1) , (M/2+L/2) 

TEMP=HBF (I+NT/2) -F ' I-M/2+L/2) 

SUM=SUM+ABS (TEMP) 

S I GMA= S I GMA+TEMP  * * 2 
300  CONTINUE 

IF  (NMERWD.EQ.L)  GO  TO  410 
DO  400  1= (M/2+L/2+1) ,M 
SUM=SUM+ABS (HBF (I+NT/2) ) 

S IGMA=SIGMA+HBF (I+NT/2) **2 
400  CONTINUE 

C 

C STORE  ERROR 
C 

410  ERBFM(SNRN02,LI  1' =SUM/NMERWD 

ERBFM ( SNRN02 , LI , 2 ) =SQRT ( SIGMA/NMERWD ) 

C 

53  IF  f SNRN02 . LE  .NMSNR)  NM'2K=K 
IF  (SNRN02.LT. NMSNR) GO  TO  59 
IF  'SNRN02.EQ. NMSNR) GO  TO  65 

54  FORMAT (I' 

55  FORMAT '8 (1PE16.8) ) 

57  FORMAT (G) 

105  ERR (LI , 1' =SF 

ERR (LI , 2 ) =AVESNR 

ERR < LI  5) =SDSNR 

59  K-K+l 

IF  (SNRN02.LT. NMSNR) GO  TO  60 
65  ADDNS (LI) =NM2K 

C 

TYPE  68 

68  FORMAT {/'  OF  SNR  S COMPLETED  ') 

67  TYPE  54, LI 

C 

LI=LI+1 

60  RETURN 

END 

C 

C OUTPUT 

C 

SUBROUTINE  OUTPUT (ERR, LI ,NM2K ,OPTIT ,SNRN02 ,SVSNR2 . 

* GTYP , ANS , ADDNS , OPTER , ERBFM ) 

DIMENSION  ERR (30,5)  ,SVSNR2  (100 , 30)  ,MXIT'30,2)  , 

* AVSNR2 (30) , ADDNS (30) ,MXSNR'30) ,MNSNR(30) , 

* OPTER '100, 30, 2) , ERBFM (100 , 30 , 2) , AVERNM (30,2) , 

* OPTIT (100,30,2) ,AVITNM (30,2) ,MNIT(30,2) ,MXER(30,2) , 
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* MNER (30,2) , SDMXER (30,2) ,SDMNER ( 30 , 2) , SDMXIT ( 30 , 2) , 

* SDMNIT (30,2)  , SDERNM (30,2)  , SDITNM ( 30 , 2)  , 

* ERR1 (30), ERRL (30) 

INTEGER  SNRN02 , GTYP , ANS 

REAL  MXSNR , MNSNR , MXER , MNER , MXI T , MNI T 
LI=LI-1 

C WRITE (30,10) 

WRITE(35, 10) 

C WRITE (36,10) 

10  FORMAT (///"*  G - TYPE  V/) 

C WRITE (30 ,70) GTYP 

WRITE (35 ,70)GTYP 
C WRITE (36, 70) GTYP 

C WRITE (30,12) 

WRITE (35 , 12) 

C WRITE (36,12) 

12  FORMAT  (///'*  NOISE  - TYPE  '//) 

C WRITE (30, 70) ANS 

WRITE (35, 70) ANS 
C WRITE (36, 70) ANS 

WRITE (35,14)  „ , , , 

14  FORMAT (///'  USING  100  NOISE  ADDITIONS  ///) 

WRITE (35  2 ) 

2 FORMAT (// , 8X , "NSF  AVESNR" , 10X , "SDSNR"//) 

WRITE (35,38) (ERR(I,1) ,ERR(I,2) ,ERR(I,5) ,1=1, LI) 

37  FORMAT (5 (1PE16.8) ) 

38  FORMAT (3 (1PE 16  8)) 

40  FORMAT (8 (1PE 16  8)) 

C WRITE (45,60) (ERR / 1,1) ,1=1, LI) 

C WRITE(46,60) (ERR{I,2) ,1=1, LI) 

WRITE (35,42) 

42  FORMAT (///'  TOTAL  OF  SNR  IN  RANGE  '//) 

WRITE (35,70) SNRN02 
C 

C CALC.  NEW  AVERAGE  USING  SNR  IN  GIVEN  RANGE  AND  AVE  IT 
C CALC.  ERROR  AFTER  MOR.  / ERROR  BEFORE  MOR. 

C ♦ 

DO  50  1=1, LI 
C 

C PRINT  ERROR  AFTER  MORRIS 
C 

C WRITE (36,51) 

C51  FORMAT  (//”*  ERROR  AFTER  MORRIS.  '/) 

C WRITE (36,70) I 

C WRITE (36,40) (OPTER ( J , I , 1) , J=1 .SNRN02) 

C WRITE (36,70) I 

C WRITE (36,40) (OPTER (J, I , 2) ,J=1.SNRN02) 

C 

C 

AVSNR2 (I)=0. 

AVITNM ( I , 1 ) =0 . 

AVITNM ( I , 2 ) =0 . 

AVERNM ( 1 , 1 ) = 0 . 

AVERNM ( 1 , 2 ) = 0 . 
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DO  47  J=1,SNRN02 

OPTER ( J 1 , 1)  = (OPTER ( J , 1 , 1) /ERBFM ( J ,1*1) ) 

OPTER ( J , I , 2 ) ■ (OPTER ( J , I , 2 ) /ERBFM ( J , I , 2 ) ) 

AVSNR2  1 I ) =AVSNR2 ( I ) +SVSNR2 ( J , I ) 

AVITNM (I , 1) “AVITNM (I , 1) +OPTIT ( J -I  1' 

AVITNM(I , 2) “AVITNM (I , 2)+OPTIT (J,I , 2) 

AVERNM (I , 1) “AVERNM (I , 1) +OPTER (J ,1,1) 

AVERNM  (1, 2)  *VERNM(I,2)+OPTER(J  1,2) 

47  CONTINUE 

AVSNR2 'I) =AVSNR2 (I) /SNRN02 
AVITNM (I , 1) =AVITNM (I , 1) /SNRN02 
AVITNM (1,2) =AVITNM (1,2) /SNRN02 
AVERNM (1,1) = AVERNM (1,1) /SNRN02 
AVERNM (1,2) = AVERNM (1.2) /SNRN02 
C 

C CALC.  SD  OF  AVERAGE  ITERATION  NUMBER  _SD  OF  ERROR 
C 

SDITNM (I , 1) =0 . 

SDITNM (I , 2) =0 . 

SDERNM ( 1 , 1 ) “ 0 . 

SDERNM ( 1 , 2 ) = 0 . 

DO  AS  J=1,SNRN02 

DIFl=OPTIT ( J , I , 1 ) -AVITNM (1,1) 

DIF2=OPTIT ( J , I , 2) -AVITNM (1,2) 

DFl=OPTER(J  1,1) -AVERNM (1,1) 

DF2-OPTER ( J ,1,2) -AVERNM (1,2) 

SDERNM (I , 1) = SDERNM (I , 1) +DF1**2 
SDERNM (I , 2) =SDERNM (1,2) +DF2**2 
SDITNM (1,1) =SDITNM (I . 1) +DIF1 **2 
SDITNM (I , 2) =SDITNM (I . 2) +DIF2**2 
45  CONTINUE 

SDITNM (I , 1) =SDITNM (1,1) /SNRN02 
SDITNM (1,2) = SDITNM (1,2) /SNRN02 
SDERNM (1,1) = SDERNM (1,1) /SNRN02 
SDERNM (1,2) =SDERNM (1,2) /SNRN02 
SDERNM ( I. l'=SQRT( SDERNM (1,1) ) 

SDERNM (1,2) =SQRT ( SDERNM (1,2) ) 

SDITNM (I, 1)=SQRT (SDITNM (1,1) ) 

SDITNM (1,2) =SQRT (SDITNM (1,2) ) 

C 

C OUTPUT  AVESNR  _SNR^S  IN  +/-  RANGE 
C 

c WRITE (30,210) 

C210  FORMAT (///"  AVESNR  FOR  SNRN02  '//) 

C WRITE (30,40) AVSNR2 (I ) 

C WRITE (30,46) 

C46  FORMAT  (///"*  SNR  S IM  +/-  . 5SD  RANGE  '//) 

C WRITE (30,40) (SVSNR2(K,I) ,K=1.SNRN02) 

C 

C CALC.  MAX  _MIN  OF  SNRN02  SNR'S , OPTIT'S  _OPTER  S IN 
C RANGE 

MXSNR ( I ) =SVSNR2 (1,1' 

MNSNR ( I ) =SVSNR2 (1,1) 

MXIT (1,1) =OPTIT (1,1,1) 
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MNIT (1,1) -OPTIT (1,1,1) 

MXIT (I, 2) -OPTIT (1,1, 2) 

MNIT (I, 2) -OPTIT (1,1, 2) 

MXER (I, 1) -OPTER (1,1,1) 

MNER (1,1) =OPTER (1,1,1) 

MXER (I, 2) -OPTER (1,1, 2) 

MNER (I, 2) -OPTER (1,1, 2) 

DO  55  K=? -SNRN02 

IF  'SVENR"  ,v,l) .GE  WXSNR 'I ) ) MXSNR(I ) -SVSNR2 (K , I) 

IF  (SVSNR2 'K,I) .LE.MNSNR(I) ) MNSNR (I ) -SVSNR2 (KfI) 

IF  (OPTIT (K,I ,1) .GE.MXIT (1,1) ) MXIT (I , 1) -OPTIT (K , I , 1) 
IF  (OPTIT(Kf 1,1) .LE.MNIT(I ,1) ) MNIT (1,1) -OPTIT (K . 1 , 1) 
IF  (OPTIT  'v , 1 , 2)  .GE.MXIT (1,2) ) MXIT (I  2’ -OPTIT  (K , 1 , 2) 
IF  "'-TIT  ' ,1,2)  .LE.MNIT(I,2) ) MNIT (1 , 2) -OPTIT (K, 1 , 2) 
IF  ( OPTER ( K , I , 1 ) . GE . MXER (1,1) ) MXER (I , 1) -OPTER (K , I , 1) 
IF  (OPTER (K, I, 1) .LE. MNER (1,1) ) MNER (I , 1) -OPTER (K , I , 1) 
IF  'OPTER (K, I, 2) .GE  MXER (1,2) ) MXER (I , 2 ) -OPTER (K , I , 2) 
IF  (OPTER (K, I, 2) .LE. MNER (1,2) ) MNER (I , 2) -OPTER (K, I , 2) 
5 CONTINUE 

0 CONTINUE 


WRITE (35,72) 

72  FORMAT  (///"  NUMBER  OF  AVERAGE  SNR"S  "//) 

WRITE (35, 70) LI 
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WRITE (35,77) 
FORMAT (///"  NEW 

AVE 

USING  SNR  IN  +/- . 5SD 

RANGE  "//) 

87 

WRITE (35,87) 
FORMAT ( " 

NSF 

AVESNR 

MAXSNR 

* 

MINSNR 

NS  ADD  "//) 

WRITE (35,37) (ERR(I,1) ,AVSNR2(I) ,MXSNR(I) ,MNSNR(I) , 

* ADDNS (I) ,1=1, LI) 

WRITE (35,74) 

74  FORMAT (///"  OPT.  ITER.  -SD-MAX  _MIN-FOR  OF  SNR  "//) 

WRITE (35,75) 

75  FORMAT  (/7X  , "AVSNR2'"  , 8X , "ITERATION1  ",7X,  IT1SD  ,7X, 

* "ITERATION2  " , 6X , "IT2SD"//) 

WRITE '35, 37) (AVSNR2(I) ,AVITNM(I  1' ,SDITNM (I , 1) , 

* AVITNM(I,2) ,SDITNM(I,2) ,1=1, LI) 

WRITE (35,165)  ^ 

165FORMAT ' ///5X , "AVE  ITER  l",5X,"MIN  ITER  1 ,6X,  MAX  ITER  1 , 

* 5X . "AVE  ITER  2",5X,"MIN  ITER  2",6X,"MAX  ITER  2'//) 

WRITE (35, 177) (AVITNM(I,1) , MNIT (1,1) , MXIT (1,1) , 

* AVITNM (1,2) ,MNIT (1,2) ,MXIT(I,2) ,1=1, LI) 

WRITE (35,76) 

76  FORMAT  (///"  ERROR  1 _2  AT  OPTIMUM  ITERATION  "//) 

WRITE (3 5, 176) 

176  FORMAT (/7X , "AVSNR2"  ^X.  "ERROR  1",8X,"SD  ERR1  ,8X, 

* "ERROR  2" , 8X , "SD  ERR2"/ /) 

WRITE (35, 37) (AVSNR2 (I) , AVERNM (1,1) ,SDERNM (I  1) , 

* AVERNM (1,2)  ,SDERNM (1,2)  ,1=1. LI) 

WRITE (35,178) 

178  FORMAT (///6X, "ERROR  1",7X,"MIN  ERR1" , 8X , "MAX  ERR1",8X, 
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* ''ERROR  2',7X,'MIN  ERR2"  , 8X,  "MAX  ERR2"/ /) 

WRITE (35  177) (AVERNM(I,.l) ,MNER (I . 11 ,MXER(I,1) f 

* AVERNM (1,2) ,MNER(I,2) ,MXER(I,2) ,1=1, LI) 

177  FORMAT (6 (1PE16.8) ) 

CALCULATE  ITT  _ERROR  (+  _-)  SD 

DO  90  1=1 f LI 

SDMXIT(I,l)=AVITNM(I.U+SDITNM(I.l) 

SDMXIT (I , 2) =AVITNM (I . 2) +SDITNM (I ,2) 

SDMNIT ( I , 1 ) =AVITNM ( I , 1 ) -SDITNM ( I , 1) 

SDMNIT(I, 2)=AVITNM(I,2)-SDITNM(I,2) 

SDMXER (1,1) * AVERNM (1,1) +SDERNM (1,1) 

SDMXER (1,2) = AVERNM (1,2) +SDERNM (1,2) 

SDMNER (1,1) =AVERNM (1,1) -SDERNM (1,1) 

SDMNER (1,2) = AVERNM (1,2) -SDERNM (1,2) 

CONTINUE 

PLOT  OF  ITERATION  _ERROR  VS  SNR,  MAX  _MIN  OF  SNR 
STANDARD  DEVIATION  OF  ERROR  _ITTERATION 

WRITE (40,61) (MNSNR(I) ,AVERNM(I,1) ,1=1, LI) 

WRITE  (41,61)  (MNSNRd’  , AVERNM  ( I 2)  ,1=1, LI) 

WRITE (42,61) (MXSNR(I) ,AVERNM(I,1) ,1=1, LI) 

WRITE (43,61) (MXSNR'I) ,AVERNM(I,2) ,1=1, LI) 

WRITE (44,61) (MNSNR(I) ,AVITNM(I,1) ,1=1, LI) 

WRITE (45,61) (MNSNR(I) ,AVITNM(I,2) ,1=1, LI' 

wr ".61)  (MXSNR'I'  ,AVITNM(I  1), 1=1, LI) 

WRITE  '47,61)  (MXSNR(I)  ,AVITNM(I,2)  ,1=1, LI) 

WRITE (48, 61) (AVSNR2 (I ) , SDMXER (I  U ,1=1, LI) 
WRITE (49,61) (AVSNR2 (I ) ,SDMXER(I,2) ,1=1, LI) 
WRITE (50  61) (AVSNR2 (I ) ,SDMNER(I,1) ,1=1, LI) 
WRITE (51,61) (AVSNR2 ( I ) ,SDMNER(I,2) ,1=1, LI) 

CLOSE  FILES 

CLOSE (UNIT=40) 

CLOSE  UTNT'T’=41) 

CLOSE (UNIT=42) 

CLOSE (UNIT=43) 

CLOSE  ',ttmtt=4  4 ) 

CLOSE (UNIT=45) 

CT.OSE  /ttmt'p=  -c) 

CLOSE - 

CLOSE  UNIT=48) 

CLOSE (UNIT=49) 

CLOSE (UNIT=50) 

CLOSE (UNIT=51) 

C 

WRITE (52 ,61) (AVSNR2 ( I ) ,SDMXIT(I,1) ,1=1, LI) 
WRITE (53,61) (AVSNR2 (I) ,SDMXIT(I,2) ,1=1, LI) 
WRITE (54  61)  (AVSNR2 (I)  ,SDMNIT(I,1)  ,1=1, LI) 
WRITE (55,61) (AVSNR2 (I) ,SDMNIT(I,2) ,1=1, LI) 


C 
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C PLOT  OF  ITERATION  , _ERROR  VS  SNR 
C 

WRITE (56,61) (AVSNR2'I) , AVERNM (1,1) ,1=1, LI) 

WRITE (57, 61) (AVSNR2 (I ) , AVERNM (I, 2) ,1=1, LI) 

WRITE (58,61) (AVSNR2 (I) ,AVITNM(I,1) ,1=1, LI) 

WRITE (59,61) (AVSNR2 (I ) ,AVITNM(I,2) ,1=1, LI) 

C 

C CLOSE  FILES 
C 

CLOSE (UNIT=52) 

CLOSE (UNIT=53) 

CLOSE (UNIT=5  4 ) 

CLOSE (UNIT=55) 

CLOSE (UNIT=56) 

CLOSE (UNIT=57) 

CLOSE (UNIT=58) 

CLOSE (UNIT=59) 

C 

C 

C PLOT  AVESNR  VS  LN(SF)  _1/SQRT(SF) 

C 


c 

DO  80  1=1, LI 

c 

ERRL  ( I ) = ALOG ( ERR '1,1)  ) 

c 

ERR1  f I ) =1 ./SQRT (ERR (I , 1)  ) 

C80 

CONTINUE 

CC 

C 

WRITE (60, 61) (ERRL (I) ,AVSNR2'I) 

,1=1, LI) 

C 

WRITE (61,61) (ERRl (I) ,AVSNR2 (I) 

,1=1, LI) 

CC 

c 

CLOSE (UNIT=60) 

c 

CLOSE (UNIT=61) 

C 

c 

C PLOT  AVERAGE  ITT  VS  LN (AVSNR2)  _ITT  SD'S  _LN (MX-MN  SNR) 
C 

DO  95  1=1  LI 

AVSNR2 ( I ) =ALOG ( AVSNR2 (I) ) 

MXSNR  ' I ) = ALOG (MXSNR (I) ) 

MNSNR ( I ) =ALOG (MNSNR (I ) ) 

95  CONTINUE 

C 

WRITE (31,61) (AVSNR2 ( I ) ,AVERNM(I,1) ,I=1  LI) 

WRITE (32,61) (AVSNR2 (I) ,AVERNM(I,2) ,1=1, LI' 
wd  t 'ptp  (33 ,61)  (AVSNR2  (I ) ,SDMXER(I,1)  ,1=1, LI) 

WRITE (34,61) (AVSNR2 ( I ) ,SDMXER(I,2) ,1=1, LI) 

WRITE (37,61) (AVSNR2 (I) ,SDMNER(I,1) ,1=1, LI) 

WRITE (30,61) (AVSNR2 ( I ) ,SDMNER(I,2) ,1=1, LI) 

WRITE (38 ,61) (AVSNR2 (I) ,AVITNM (1,1) ,1=1, LI) 

WRITE (39,61) (AVSNR2 (I ) ,AVITNM(I,2) ,1=1, LI) 

WRITE (60,61) (AVSNR2 (I) ,SDMXIT(I,1) ,1=1, LI) 

WRITE (61,61) (AVSNR2 (I) ,SDMXIT(I,2) ,1=1, LI) 

WRITE (62 ,61)  ( AVSNR2 1 1 ) ,SDMNIT(I,1)  ,1  = 1, LI) 

WRITE (63,61) (AVSNR2 (I) ,SDMNIT(I,2) ,1=1, LI) 
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WRITE (33,61) (MNSNR(I) ,AVERNM(I,1) ,1=1, LI) 

WRITE  C34 ,61)  (MNSNR(I)  ,AVERNM (I  2)  ,1=1, LI) 

WRITE (37 ,61)  (MXSNR(I)  ,AVERNM(I,1)  ,1=1, LI) 

WRITE (30,61) (MXSNR(I) ,AVERNM(I,2) ,1=1, LI) 

WRITE (60 , 61) (MNSNR(I) ,AVITNM(I,1) ,1=1, LI) 

WRITE (61,61) (MNSNR(I) ,AVITNM(I,2) ,1=1, LI) 

WRITE (62,61) (MXSNR'I) ,AVITNM(I,1) ,1=1, LI) 

WRITE (63,61) (MXSNR/I) ,AVITNM(I,2) ,1=1, LI) 

C 

C 

C PRINT  OUT  OPTIT  1 _2  AND  OPTER  1 _2 
C 

C DO  400  1=1, LI 

C WRITE (36,52) 

C52  FORMAT (//"  OPTIMUM  ITERATION  NUMBER  /) 

C WRITE (36,70) I 

C WRITE (36,40) (OPTIT (J ,1 , 1) ,J=1 ,SNRN02 ) 

C WRITE (36,70) I 

C WRITE (36,40)  (OPTIT ( J , 1 , 2)  , J=1 ,SNRN02) 

C WRITE (36 ,53) 

C53  FORMAT  (//"  ERROR  AFTER  MORRIS  / ERROR  BEFORE  MORRIS  /) 
C WRITE (36,70) I 

C WRITE (36 , 40) (OPTER ( J , I , 1) , J=1 ,SNRN02) 

C WRITE (36,70) I 

C WRITE (36, 40) (OPTER(J,I , 2) ,J=1,SNRN02) 

C400  CONTINUE 

C 

78  FORMAT ( 2 ( 1PE16 . 8)  ) 

60  FORMAT (G) 

61  FORMAT (2G) 

TYPE  73 

73  FORMAT ( " NUMBER  OF  AVERAGE  SNR"S  '//) 

TYPE  70, LI 
70  FORMAT (I) 

RETURN 

END 


332 


VITA 

James  H.  Leclere 

He  graduated  from  Holv  Cross  High 
School  and  entered  the  University  of  Southwestern  Louisiana 
in  1972.  He  attended  Loyola  University  of  the  South  for  one 
semester  in  1975.  In  1978  he  entered  the  University  of  New 
Orleans,  from  which  he  received  a B.S.  in  Phvsics  in  1981. 
He  entered  the  graduate  school  of  the  University  of  New 
Orleans  in  the  department  of  Physics  in  1981,  and  has  been 
employed  as  a graduate  teaching  and  research  assistant. 


Effect  Of  Input  On  Optimization  Of  Morrison’s 
Iterative  Noise  Removal  For  Deconvolution 

A Thesis 
Presented  to 

the  Faculty  of  the  Graduate  School 
University  of  New  Orleans 


In  Partial  Fulfillment 
of  the  Requirements  for  the  Degree  of 
Master  of  Science  in  Applied  Physics 


by 

Aed  M El-saba 


December  1986 


Acknowledgments 


I would  like  to  thank  Dr.  George  loup  for  his  guidance  and  assistance 
during  the  course  of  study.  I am  greatly  indebted  to  his  patience  and 
availability.  I would  also  like  to  thank  Dr.  Juliette  loup  and  Dr.  Rasheed 
Azzam  for  the  suggestions  that  they  provided.  Finally  I would  like  to  thank 
Mr.  Jim  Leclere  for  his  help  and  suggestions. 


n 


Table  Of  Contents 


Chapter  I : Introduction  1 

Chapter  II  : Inverse  Filter 3 

Chapter  III:  Morrison  Noise  Removal  Alone 12 

Chapter  IV:  Morrison  Noise  Removal  For  Deconvolution  . 75 

Chapter  V:  Effect  Of  A Scaled  Input 132 

Chapter  VI:  Comparison  Between  Different  Inputs  ....  183 

Chapter  VII:  Conclusion  193 

References 196 

Appendex 200 

Vita 232 


iii 


List  OF  Tables 


Table PaSe 

(3.1)  :Narrow  Ordinate  SNR 23 

(3.2)  :Narrow  Constant  SNR 24 

(3.3)  :Wide  Ordinate  SNR 25 

(3.4)  :Wide  Constant  SNR 26 

(3.5)  :Narrow  Ordinate  Iteration 27 

(3.6)  :Narrow  Ordinate  Iteration 28 

(3.7)  :Narrow  Constant  Iteration 29 

(3.8)  :Narrow  Constant  Iteration 30 

(3.9)  :Wide  Ordinate  Iteration 31 

(3.10)  :Wide  Ordinate  Iteration 32 

(3.11)  :Wide  Constant  Iteration 33 

(3.12)  :Wide  Constant  Iteration 34 

(2.13)  :Narrow  Ordinate  Error 35 

(3.14)  :Narrow  Ordinate  Error 36 

(3.15)  :Narrow  Constant  Error 37 

(3.16)  :Narrow  Constant  Error 38 

(3.17)  :Wide  Ordinate  Error 39 

(3.18)  :Wide  Ordinate  Error 40 

(3.19)  :Wide  Constant  Error 41 

(3.20)  :Wide  Constant  Error 42 

(4.1)  :Narrow  Ordinate  SNR 30 

(4.2)  :Narrow  Constant  SNR 31 

(4.3)  :Wide  Ordinate  SNR 82 


IV 


(4.4)  :Wide  Constant  SNR 83 

(4.5)  rNarrow  Ordinate  Iteration 84 

(4.6)  rNarrow  Ordinate  Iteration 85 

(4.7)  :Narrow  Constant  Iteration 86 

(4.8)  rNarrow  Constant  Iteration 87 

(4.9)  rWide  Ordinate  Iteration 88 

(4.10)  -.Wide  Ordinate  Iteration 89 

(4.11)  rWide  Constant  Iteration 90 

(4.12)  rWide  constant  Iteration 91 

(4.13)  rNarrow  Ordinate  Error 92 

(4.14)  rNarrow  Ordinate  Error 93 

(4.15)  rNarrow  Constant  Error 94 

(4.16)  rNarrow  Constant  Error 95 

(4.17)  rWide  Ordinate  Error 96 

(4.18)  rWide  Ordinate  Error 97 

(4.19)  rWide  Constant  Error 98 

(4.20)  rWide  Constant  Error 99 

(5.1)  rScaled  Narrow  Ordinate  SNR 138 

(5.2)  rScaled  Narrow  Constant  SNR 139 

(5.3)  rScaled  Wide  Ordinate  SNR 140 

(5.4)  rScaled  Wide  Constant  SNR 141 

(5.5)  rScaled  Narrow  Ordinate  Iteration 142 

(5.6)  rScaled  Narrow  Ordinate  Iteration 143 

(5.7)  rScaled  Narrow  Constant  Iteration 144 

(5.8)  rScaled  Narrow  Constant  Iteration 145 

(5.9)  rScaled  Wide  Ordinate  Iteration 146 


v 


(5.10)  rScaled  Wide  Ordinate  Iteration 147 

(5.11)  : Scaled  Wide  Constant  Iteration  148 

(5.12)  :Scaled  Wide  Constant  Iteration  149 

(5.13)  :Scaled  Narrow  Ordinate  Error 150 

(5.14)  :Scaled  Narrow  Ordinate  Error 151 

(5.15)  : Scaled  Narrow  Constant  Error 152 

(5.16)  rScaled  Narrow  Constant  Error 153 

(5.17)  rScaled  Wide  Ordinate  Error 154 

(5.18)  rScaled  Wide  Ordinate  Error 155 

(5.19)  rScaled  Wide  Constant  Error 156 

(5.20)  rScaled  Wide  Constant  Error 157 

(5.21)  rScaled  Narrow  Ordinate  SNR  Prior  To  Deco 158 

(5.22)  rScaled  Narrow  Constant  SNR  Prior  To  Deco 159 

(5.23)  rScaled  Wide  Ordinate  SNR  Prior  To  Deco 160 

(5.24)  rScaled  Wide  Constant  SNR  Prior  To  Deco 161 

(5.25)  rScaled  Narrow  Ordinate  Iteration  Prior  To  Deco 162 

(5.26)  rScaled  Narrow  Ordinate  Iteration  Prior  To  Deco 163 

(5.27)  rScaled  Narrow  Constant  Iteration  Prior  To  Deco 164 

(5.28)  rScaled  Narrow  Constant  Iteration  Prior  To  Deco 165 

(5.29)  rScaled  Wide  Ordinate  Iteration  Prior  To  Deco 166 

(5.30)  rScaled  Wide  Ordinate  Iteration  Prior  To  Deco 167 

(5.31)  rScaled  Wide  Constant  Iteration  Prior  To  Deco 168 

(5.32)  rScaled  Wide  constant  Iteration  Prior  To  Deco 169 

(5.33)  rScaled  Narrow  Ordinate  Error  Prior  To  Deco 170 

(5.34)  rScaled  Narrow  Ordinate  Error  Prior  To  Deco 171 

(5.35)  rScaled  Narrow  Constant  Error  Prior  To  Deco 172 


VI 


(5.36)  :Scaled  Narrow  Constant  Error  Prior  To  Deco 173 

(5.37)  :Scaled  Wide  Ordinate  Error  Prior  To  Deco 174 

(5.38)  :Scaled  Wide  Ordinate  Error  Prior  To  Deco 175 

(5.39)  :Scaled  Wide  Constant  Error  Prior  To  Deco 176 

(5.40)  :Scaled  Wide  Constant  Error  Prior  To  Deco 177 

(5.41)  :Scaled  Narrow  Constant  SNR  For  Zero  Conv 178 

(5.42)  :Scaled  Narrow  Constant  Iteration  For  Zero  Conv 179 

(5.43)  -.Scaled  Narrow  Constant  Iteration  For  Zero  Conv 180 

(5.44)  :Scaled  Narrow  Constant  Error  For  Zero  Conv 181 

(5.45)  :Scaled  Narrow  Constant  Error  For  Zero  Conv 182 


vii 


List  Of  Figures 


Figure Page 

(2.1)  :Convolution  Process 3 

(2.2)  :Input  7 

(2.3)  :Narrow  Gaussian  Response 8 

(2.4)  :Wide  Gaussian  Response 9 

(2.5)  :Narrow  Output 10 

(2.6)  :Wide  Output 11 

(2.7)  :Deconvolution  Process 4 

(3.1)  :Narrow  Ordinate  Iteration  For  Ll  Norm 43 

(3.2)  :Narrow  Ordinate  Iteration  For  Ll  Norm 44 

(3.3)  :Narrow  Ordinate  Iteration  For  L2  Norm 45 

(3.4)  :Narrow  Ordinate  Iteration  For  L2  Norm 46 

(3.5)  :Narrow  Constant  Iteration  For  Ll  Norm 47 

(3.6)  :Narrow  Constant  Iteration  For  Ll  Norm 48 

(3.7)  :Narrow  Constant  Iteration  For  L2  Norm 49 

(3.8)  :Narrow  Constant  Iteration  For  L2  Norm 50 

(3.9)  :Wide  Ordinate  Iteration  For  Ll  Norm 51 

(3.10)  :Wide  Ordinate  Iteration  For  Ll  Norm 52 

(3.11)  :Wide  Ordinate  Iteration  For  L2  Norm 53 

(3.12)  :Wide  Ordinate  Iteration  For  L2  Norm 54 

(3.13)  :Wide  Constant  Iteration  For  Ll  Norm 55 

(3.14)  :Wide  Constant  Iteration  For  Ll  Norm 56 

(3.15)  :Wide  Constant  Iteration  For  L2  Norm 57 

(3.16)  :Wide  Constant  Iteration  For  L2  Norm 58 

viii 


(3.17)  :Narrow  Ordinate  Error  For  Ll  Norm 59 

(3.18)  ‘.Narrow  Ordinate  Error  For  Ll  Norm 60 

(3.19)  :Narrow  Ordinate  Error  For  L2  Norm 61 

(3.20)  :Narrow  Ordinate  Error  For  L2  Norm 62 

(3.21)  :Narrow  Constant  Error  For  Ll  Norm 63 

(3.22)  :Narrow  Constant  Error  For  Ll  Norm 64 

(3.23)  :Narrow  Constant  Error  For  L2  Norm 65 

(3.24)  :Narrow  Constant  Error  For  L2  Norm 66 

(3.25)  :Wide  Ordinate  Error  For  Ll  Norm 67 

(3.26)  :Wide  Ordinate  Error  For  Ll  Norm 68 

(3.27)  :Wide  Ordinate  Error  For  L2  Norm 69 

(3.28)  :Wide  Ordinate  Error  For  L2  Norm 70 

(3.29)  :Wide  Constant  Error  For  Ll  Norm 71 

(3.30)  :Wide  Constant  Error  For  Ll  Norm 72 

(3.31)  :Wide  Constant  Error  For  L2  Norm 73 

(3.32)  :Wide  Constant  Error  For  L2  Norm .74 

(4.1)  :Narrow  Ordinate  Iteration  Ll  Norm 100 

(4.2)  :Narrow  Ordinate  Iteration  Ll  Norm 101 

(4.3)  rNarrow  Ordinate  Iteration  L2  Norm 102 

(4.4)  :Narrow  Ordinate  Iteration  L2  Norm 103 

(4.5)  :Narrow  Constant  Iteration  Ll  Norm 104 

(4.6)  :Narrow  Constant  Iteration  Ll  Norm 105 

(4.7)  rNarrow  Constant  Iteration  L2  Norm 106 

(4.8)  rNarrow  Constant  Iteration  L2  Norm 107 

(4.9)  rWide  Ordinate  Iteration  Ll  Norm 108 

(4.10)  rWide  Ordinate  Iteration  Ll  Norm  109 


ix 


(4.11)  :Wide  Ordinate  Iteration  L2  Norm  110 

(4.12)  :Wide  Ordinate  Iteration  L2  Norm Ill 

(4.13)  :Wide  Constant  Iteration  LI  Norm 112 

(4.14)  :Wide  Constant  Iteration  Ll  Norm 113 

(4.15)  :Wide  Constant  Iteration  L2  Norm 114 

(4.16)  :Wide  Constant  Iteration  L2  Norm 115 

(4.17)  rNarrow  Ordinate  Error  Ll  Norm 116 

(4.18)  :Narrow  Ordinate  Error  Ll  Norm 117 

(4.19)  :Narrow  Ordinate  Error  L2  Norm 118 

(4.20)  :Narrow  Ordinate  Error  L2  Norm 119 

(4.21)  :Narrow  Constant  Error  Ll  Norm 120 

(4.22)  :Narrow  Constant  Error  Ll  Norm 121 

(4.23)  :Narrow  Constant  Error  L2  Norm 122 

(4.24)  :Narrow  Constant  Error  L2  Norm 123 

(4.25)  :Wide  Ordinate  Error  Ll  Norm 124 

(4.26)  :Wide  Ordinate  Error  Ll  Norm 125 

(4.27)  :Wide  Ordinate  Error  L2  Norm 126 

(4.28)  :Wide  Ordinate  Error  L2  Norm 127 

(4.29)  :Wide  Constant  Error  Ll  Norm 128 

(4.30)  :Wide  Constant  Error  Ll  Norm 129 

(4.31)  :Wide  Constant  Error  L2  Norm 130 

(4.32)  :Wide  Constant  Error  L2  Norm 131 

(5.1)  :Scaled  Input  133 

(6.1)  :Narrow  Constant  Iteration  Of  L2  Norm  186 

(6.2)  :Narrow  Constant  Error  Of  L2  Norm 187 

(6.3)  :Wide  Constant  Iteration  Of  L2  Norm  188 


x 


(6.4)  :Wide  Constant  Error  L2  Norm 189 

(6.5)  :Wide  Constant  Iteration  L2  Norm  Prior  To  Deco 190 

(6.7)  :Wide  Constant  Iteration  L2  Norm  Prior  To  Deco 191 

(6.8)  :Wide  Constant  Error  L2  Norm  Prior  To  Deco 192 


xi 


Abstract 


Morrison’s  iterative  method  of  noise  removal  can  be  applied  for  both 
noise  removal  alone  and  noise  removal  prior  to  deconvolution.  This  method 
is  applied  to  noise  of  various  noise  levels  added  to  data  to  determine  the 
optimum  use  of  the  method. 

The  inverse  filter  is  calculated  by  taking  the  inverse  discrete  Fourier 
transform  of  the  reciprocal  of  the  transform  of  the  response  of  the  system. 
The  method  of  deconvolution  used  consists  of  convolving  the  data  with  the 
inverse  filter.  Deconvolution  of  non-noisy  data  is  performed  and  the  error 
is  calculated  by  comparing  the  deconvolved  results  to  the  original  input  f. 

A triangular  and  rectangular  type  input  is  selected  and  convolved  with 
narrow  and  wide  response  Gaussian  functions  to  produce  the  data  sets  to  be 
analyzed.  The  types  of  noise  added  to  the  data  are  constant  and  ordinate- 
dependent  Gaussian  distributed  noise.  The  noise  levels  of  the  data  are 
characterized  by  their  signal-to-noise  ratios.  Ll  and  L2  norms  for  errors  are 
employed  in  the  optimization. 

Tables  of  results  and  figures  are  both  included  to  show  the  results  of 
optimization  for  both  Gaussians,  for  both  noise  types,  and  for  both  norms. 

The  input  is  selected  to  contrast  with  the  input  of  Leclere  which  consists 
of  narrow  Gaussians.  The  results  of  the  two  optimizations  are  compared. 
The  current  input  is  also  scaled  by  multiplication  by  a constant  to  illustrate 


xii 


the  effect  of  scaling. 


xiii 
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Chapter  I 
Introduction 


This  work  concerns  the  optimum  use  of  Morrison  s method  for  both 
noise  removal  alone  and  noise  removal  prior  to  deconvolution. 

Morrison’s  noise  removal  is  an  iterative  technique  in  which  which  the 
first  iteration  smoothes  the  data  to  which  it  is  applied,  and  each  subsequent 
iteration  restores  the  data  back  toward  the  original,  except  for  the  incom- 
patable  noise,  upon  the  convergence  of  the  method. 

Some  work  has  been  done  by  Ioup(1968),  Wright  (1980).  and  Leclere(1984) 
to  show  that  the  iterations  may  be  terminated  before  convergence  of  the 
method  and  a reasonable  approximation  to  the  noise  free  data  obtained. 

In  Chapter  II  the  method  of  determining  the  optimum  length  filter  used 
for  the  deconvolution  and  the  factors  that  affect  its  accuracy  are  briefly 
studied. 

Chapter  III  contains  the  study  of  Morrison’s  noise  removal  method  for 
noise  removal  alone  and  also  a discussion  of  the  ordinate-dependent  and 
constant  noise  that  is  added  to  the  data.  Tables  and  plots  are  provided 
to  show  the  optimum  iteration  number  versus  noise  level  as  well  as  error 
improvements  at  the  iteration  numbers.  Comparisons  between  narrow  and 
wide  Gaussians  are  also  provided. 


Chapter  IV  contains  the  study  of  Morrison’s  method  for  noise  removal 
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prior  to  deconvolution.  As  Morrison  s smoothing  is  applied  to  the  noisy 
data,  the  deconvolution  is  performed  after  each  iteration  by  applying  the 
optimum  filter  calculated  in  Chapter  II.  Tables  and  plots  corresponding  to 
those  in  Chapter  III  are  also  included  in  this  chapter. 

Chapter  V contains  the  same  study  done  in  Chapter  III  and  IV  for  the 
same  input  but  of  a different  size.  The  size  of  the  new  input  is  reduced  to  one 
fourth  and  the  study  is  done  to  see  how  the  convergence  value,  the  iteration 
number,  and  the  error  improvement  is  affected.  Complete  tables  of  results 
are  included  for  convenience. 

Chapter  VI  contains  a comparison  between  two  types  of  input.  The 
first  type  of  input  is  the  one  used  by  Wright ( 1980)  and  Leclere(  1984) and 
the  second  is  the  one  used  in  this  study.  The  purpose  is  to  have  a better 
understanding  of  what  effect  a different  input  has  on  the  convergence  criteria, 
the  iteration  numbers,  and  the  error  improvements.  Plots  are  given  which 
show  the  average  iteration  numbers  and  average  error  improvements  for  both 
inputs.  A brief  discussion  is  also  included. 

Chapter  VII  is  a conclusion  section  which  contains  a comparison  of  the 
use  of  Morrison’s  technique  for  noise  removal  alone  and  for  noise  removal 
prior  to  deconvolution.  Suggestions  for  further  study  are  given.  A listing 
of  the  FORTRAN  computer  program  used  in  this  study  is  in  the  appendix. 


Chapter  II 


Convolution  and  Inverse  Filter 


When  input  data  are  measured  by  a system,  the  system  subjects  those 
data  to  some  distortion.  The  effect  on  the  data  is  determined  by  the  impulse 
response  of  the  system.  The  effect  of  the  impulse  response  on  the  data  can 
be  described  by  convolution  if  the  system  is  linear  and  shift  invariant.  The 
relationship  between  the  input  and  the  output  can  be  represented  as  shown 
in  Figure  (2.1).  In  Figure  (2.1)  the  input  data  are  denoted  by  f,  the  system 
response  by  g,  and  the  output  by  h. 


Observe.^ 


Figure{ 2.1)  : h = f * g 

where  the  asterisk  * represents  the  convolution.  The  convolution  integral  in 


the  function  domain  is: 


([I*-'1) 


If  N denotes  the  number  of  points  for  either  the  narrow  or  wide  responses 
and  L the  number  for  the  input  data,  then  the  length  of  the  output  is  (N-rL- 
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1)  points  (Bracewell,  1978).  For  example,  the  number  of  points  in  the  narrow 
Gaussian  response  used  here  is  9 and  in  the  wide  Gaussian  response  21,  so 
the  number  of  points  of  the  output  is  32  in  the  narrow  case  and  44  in  the 
wide  case. 

Figure  (2.2)  represents  the  input  f to  the  system  and  Figures  (2.3)  and 

(2.4)  show  the  narrow  and  the  wide  Gaussian  responses  respectively.  Figures 

(2.5)  and  (2.6)  represent  the  outputs,  h,  for  the  narrow  and  the  wide  cases 
respectively. 

To  remove  the  effect  of  the  response,  the  output  is  deconvolved.  The 
process  of  deconvolution  (or  inverse  filtering)  is  extremely  useful  in  radar, 
seismic,  and  other  areas  for  removing  the  effect  of  some  previous  convolution 
on  the  signal.  As  in  Figure  (2.1),  if  the  observed  output  signal  is  h,  the 
general  problem  of  deconvolution  is  one  finding  a box  through  which  one  can 
pass  the  observed  signal  h so  as  to  recover  the  original  signal  f (Robinson, 
1980).  The  process  of  deconvolution  is  depicted  by  the  diagram  shown 
below: 


Figure( 2.7)  : Deconvolution  process 
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The  technique  used  in  this  work  is  to  take  the  inverse  transform  of  the 
reciprocal  of  the  discrete  Fourier  transform  (DFT)  of  the  impulse  response. 
The  convolution 

h(x)  = f(x)  * g(x) 

in  the  Fourier  transform  domain  corresponds  to  multiplication  of  the  trans- 
forms of  f and  g (Bracewell,1978), 


H(s)  = F(s)G(s ), 

and 

which  corresponds  to 

f(x)  = h.(x)  * inverse  of  g(x). 

The  inverse  filter  is  defined  by 


where  F(s),  H{s),  and  G(s)  represent  the  Fourier  transforms  of  f(x),  h(x), 
and  g(x),  respectively.  NT  is  the  number  of  discrete  frequency  components 
contained  in  1/G(s). 

It  was  shown  by  Leclere  (1984)  that  the  accuracy  of  the  filter  depends 
very  much  on  the  length  of  the  filter.  The  following  is  a brief  discussion  of 
the  factors  that  affect  the  accuracy  of  the  inverse  filter  and  the  choice  of  the 
optimum  filter  length. 

Bracewell  (1978)  points  out  that  that  if  the  system  considered  is  entirely 
discrete  there  is  no  error  due  to  sampling.  The  significant  effects  on  the 
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accuracy  of  the  inverse  filter  are  the  wraparound  error  in  the  function  domain 
(Oppenheim  and  Schafer,  1975)  and  the  round-  off  error. 

The  procedure  used  to  reduce  the  wraparound  effect  is  to  reduce  the 
sampling  interval  in  the  transform  domain,  or  correspondingly,  to  add  ze- 
ros in  the  function  domain.  This  results  in  widening  the  function  domain 
window  of  the  filter  and  thus  reducing  the  error  introduced  by  wraparound. 
This  is  significant  because  the  filter  is  calculated  from  a sampled  transform 
domain  function  with  frequency  components  of  large  magnitude  at  the  edges 
of  the  window. 

In  his  work  Leclere(1984)  shows  how  too  coarse  a sampling  interval  in 
the  transform  domain  causes  a significant  wraparound  error  in  the  calculation 
of  the  filter,  and  how  sampling  at  a finer  rate  can  reduce  this  effect  greatly. 
Leclere  also  shows  that  the  filter  calculated  from  the  narrow  Gaussian  has 
less  wraparound  error  than  a wide  Gaussian  of  the  same  sampling  interval 
and  that  the  transform  of  the  narrow  Gaussian  is  wider  and  has  larger  values 
at  the  edges  of  its  window. 

For  the  determination  of  the  inverse  filter,  the  fast  Fourier  transform 
(FFT)  subroutine  (Higgins.  1976)  is  used  for  the  calculation  of  the  forward 
and  inverse  transforms.  In  his  work,  Leclere  (1984)  tests  different  inverse 
filter  lengths  to  determine  the  optimum  one.  Because  the  wide  Gaussian 
inverse  has  more  round-off  error  than  the  narrow,  its  optimum  length  is  less. 
As  a result  of  his  study,  a 257  point  filter  is  chosen  for  the  narrow  case,  and 
a 129  point  filter  is  chosen  as  the  most  accurate  one  for  the  wide  case. 
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Chapter  III 

Morrison’s  Method  For  Noise  Removal 

Morrison’s  iterative  method  of  noise  removal  is  a technique  in  which  the 
first  iteration  smoothes  the  data  by  convolving  h with  g,  and  each  subse- 
quent iteration  restores  the  data  to  the  original  except  for  the  removal  of 
incompatable  noise,  upon  convergence  of  the  method  (Morrison,  1963:Ioup, 
1968).  The  first  iteration  wherein  h is  convolved  with  g results  in  a function 
hi  that  has  no  frequency  component  higher  than  those  found  in  g,  the  system 
response  function. 

Morrison’s  smoothing  can  be  represented  as  follows  (Ioup,  1968;  Ioup 
and  Ioup,  1983).  In  the  function  domain: 

Mx)  = h(x)  * g(x) 

h„(x)  = /i„-i(x)  + (/i(z)  “ 1 (x) | * g(x)  n > 1 

In  the  transform  domain: 

H ,(*)  = ff(*)G(a) 

H„(s)  = Htl-i(s)  + \H(s)  - H„-i(s)\G(s)  n > 1 

or 

Hn[>)  = [1-{1-G(*)"lff(a) 

In  previous  work  Ioup(1968)  discusses  the  convergence  conditions.  Conver- 
gence is  assured  if  .455(1  - G(s))  < 1 or  if  G(^)  = 0.  Morrison’s  noise  removal 
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converges  faster  in  the  case  of  the  narrow  response  because,  as  stated  ear- 
lier. the  narrow  response  has  a wider  frequency  spectrum  than  does  the  wide 
Gaussian  and  for  any  value  of  s,  [1  — (1  - G(s))"]  is  a number  closer  to  one,  for 
any  n. 


Morrison’s  Method  for  Noise  Removal  Alone 


Morrison’s  method  applied  to  noise  added  data,/i;,  restores  both  signal 
and  noise  with  each  iteration.  It  was  shown  by  Wright  (1980)  and  Leclere 
(1984)  that  the  best  approximation  of  the  data,  h,  is  obtainable  by  termina- 
tion of  the  iterations  before  convergence  of  the  method. 

It  was  shown  by  Wright  and  Ioup  (1980),  Ioup  and  Ioup  (1981),  and 
Leclere  (1984)  that  the  optimum  use  of  Morrison’s  method  can  be  studied 
by  adding  ordinate-dependent  and  constant  Gaussian  distributed  noise  to 
the  data  h.  The  definition  of  the  signal  to  noise  ratio  (SNR)  used  here  is 
the  ratio  of  the  maximum  value  of  h to  the  root-mean-square  (RMS)  value, 
or  standard  deviation,  of  the  noise.  The  SNR  is  used  to  characterize  the 
level  of  the  noise  added  to  the  data.  The  procedure  for  noise  addition  used 
in  this  study  is  the  same  as  that  used  by  Leclere  (1984).  The  procedure  will 
be  summarized  in  the  following  sections. 
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Constant  Gaussian  Noise  Addition  Procedure 


Constant  Gaussian  noise  is  that  which  has  a constant  standard  deviation 
at  each  point.  It  can  be  generated  as  follows  (Leclere,  1984,  Hamming,  1973): 

k,,(I)  = (£  Aj  - 6)  * (N SF)"^  * h(I) 

j= i 

where  NSF  is  the  noise  scale  factor  chosen  to  vary  the  magnitude  of  the  noise 
and  thus  the  SNR.  A is  a random  number  uniformly  distributed  between 
zero  and  one,  generated  by  a computer  subroutine.  The  index  I denotes  each 
discrete  data  element. 

Ordinate-Dependent  Gaussian  Noise  Addition  Procedure 


Ordinate-dependent  Gaussian  noise  is  that  which  has  an  ordinate  de- 
pendent standard  deviation.  The  noise  addition  procedure  is  as  follows: 


hv(i)  = (E  A>  ~ 6)  * ( NSF  * m7))”'5)  + m n 

>=i 


Signal  To  Noise  Ratio 


The  SNR  is  used  to  measure  the  noisiness  of  the  data  sets  and,  as  is 
evident  from  the  noise  addition  procedure,  the  mean  SNR  is  inversely  pro- 
portional to  the  square  root  of  the  NSF: 
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SNR  = constant  / (N  S F)"'J , 

in  both  the  constant  and  the  ordinate-dependent  noise  cases.  A single 
NSF  produces  a statiscally  distributed  range  of  SNR  values  upon  repeated 
application  of  the  above  formulas.  To  limit  the  SNR  values  to  a small 
neighborhood  about  the  mean  SNR  for  a given  NSF,  one  approach  is  to  add 
noise  100  times  to  h and  calculate  an  average  SNR,  AVSNR.  and  standard 
deviation,  SDSNR,  for  the  100  cases.  Then  the  SNR  of  the  data  sets  to  be 
optimized  is  confined  to  a range  about  AVSNR  of  plus  and  minus  one  half 
SDSNR. 

As  will  be  shown  later  in  this  chapter,  the  rate  of  change  of  the  optimum 
iteration  number  and  the  error  improvement  with  SNR  are  much  greater 
for  relatively  low  SNR’s.  The  two  error  measurements  employed  in  the 
optimization  were  based  on  the  minimization  of  the  absolute  error  per  point 
and  the  mean-square  errors, or  the  RMS,  between  h and/i„.  These  measures 
are  referred  to  as  the  Ll  and  L2  norms,  respectively. 

Convergence  Criteria 


In  his  previous  work,  Leclere(1984)  uses  a procedure  for  convergence 
which  terminates  the  iterations  for  the  narrow  Gaussian  case,  constant  noise 
and  ordinate-dependent  noise,  when  the  fractional  difference,  DFl.  or  an  ab- 
solute difference,  DF2.  between  the  errors  at  successive  iteration  are  less  than 
0.0001  or  0.00002  respectively.  For  the  wide  Gaussian  case  the  iterations  are 
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terminated,  for  the  constant  and  the  ordinate-dependent  noise,  when  DFl  or 
DF2  are  less  than  0.0005  or  0.00005  respectively.  The  fractional  difference 
is  defined  as: 


DFl  = \e(i  — 1)  -e(t)|/«(t  - 1), 


and  the  absolute  difference  is  obtained  from: 


DFl  = {e(i  - 1)  - «(»')], 

where  i denotes  the  iteration  number  of  the  current  test. 

Choosing  a suitable  convergence  criterion  is  somewhat  subjective  as  a 
preference  for  reduction  in  noise  or  resolution  of.  signal  comes  into  play. 
Other  factors  are  the  smoothness  of  the  iteration  vs  SNR  curve  and  the 
standard  deviations  of  the  iteration  numbers.  A convergence  criterion  is 
chosen  which  allows  optimum  error  improvement  in  combination  with  results 
consistent  with  expected  behavior.  The  convergence  value  for  each  case  in 
this  study  determined  experimentally.  Convergence  values  of  DFl  =0.0001 
and  DF2=0. 00002  are  chosen  for  the  narrow  case  for  both  constant  and 
ordinate-dependent  noise  types.  Convergence  values  of  DF  1=0.0005  and 
DF2=0. 00002  are  chosen  for  the  wide  case  for  both  the  constant  and  ordinate- 
dependent  cases. 
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Optimization  Procedure 


The  method  for  determining  the  optimum  average  iteration  number  is 
to  calculate  AVESNR  and  SDSNR  as  mentioned  earlier  and  to  continue 
adding  noise  for  each  SNR  until  100  data  sets  having  SNR’s  that  fall  within 
plus  and  minus  one-half  SDSNR  for  each  AVSNR  are  generated  and  stored. 
From  these  sets  new  averages,  AVSNR2,  standard  deviations,  SDSNR2,  and 
maximum  and  minimum  SNR’s,  MXSNR  and  MNSNR,  that  fall  within  the 
one-half  SDSNR  range  are  calculated.  These  values  are  listed  in  Tables 
(3.1)-(3.4)  for  both  Gaussians  and  both  noise  types. 

Morrison’s  noise  removal  is  applied  to  the  data  sets  and  the  error  is 
tested  after  each  iteration  by  comparing  the  restored  result  to  the  noise-free  h 
defined  in  Chapter  II.  The  100  optimum  iteration  numbers  for  each  AVSNR2 
are  stored,  and  averages  of  iteration  numbers, AVITER,  are  calculated  along 
with  their  standard  deviations,  ITSD,  and  maximum  and  minimum  iteration 
numbers,  MAXITER  and  MINITER. 

Figures  (3.1)-(3.16)  show  AVITER  versus  AVSNR2  and  AVITER  versus 
the  natural  log  of  AVSNR2  for  both  the  narrow  and  wide  Gaussians,  for  both 
Ll  and  L2  norms,  and  for  both  constant  and  ordinate-dependent  noise  types. 
Standard  deviations  of  iteration  numbers  are  given  on  the  semilog  plots. 

In  the  calculation  of  the  average  error  improvement  at  each  AVSNR2  the 
ratio  of  the  error  after  noise  removal  to  the  error  before  applying  Morrison’s 
method  is  determined  for  each  of  the  100  data  sets.  The  averages  of  each  of 
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the  100  ratios  are  calculated,  ERROR,  along  with  their  standard  deviation, 
SDERR,  and  their  maxima  and  minima,  MAXERR  and  MINERR. 

Tables  (3.13)-(3.20)  list  these  values.  Plots  of  average  error  versus 
AVSNR2  and  average  error  versus  the  natural  log  of  the  AVSNR2  are  shown 
in  Figures  (3.17)-(3.32).  Standard  deviations  of  error  improvements  are 
included  on  the  semilog  figures. 

Results  of  Narrow  Gaussian  Iterations 


Examining  Tables  (3.5)-(3.8)  one  can  see  the  monotonic  increase  in  av- 
erage iteration  number  as  the  SNR  increases.  For  the  ordinate-dependent 
noise  case  the  average  iteration  number  for  the  Ll  norm  is  higher  than  that 
of  the  L2  norm  at  the  same  AVSNR2.  However,  for  the  constant  case  the 
average  iteration  number  for  L2  norm  is  higher  than  that  of  the  Ll  norm  for 
the  same  AVSNR2.  For  the  Ll  norm  the  average  number  of  iterations  for 
the  ordinate-dependent  noise  is  higher  than  that  of  the  constant  noise.  For 
the  L2  norm  the  average  iteration  number  for  the  ordinate-dependent  case 
is  less  than  that  of  the  constant  case.  For  both  norms  and  both  noise  types, 
there  is  a rapid  increase  in  average  iteration  in  the  low  and  middle  range  of 
AVSNR2. 

The  data  also  show  that  for  both  Ll  and  L2  norms,  and  for  both  constant 
and  ordinate-dependent  noise  types,  there  is  no  fluctuation  in  the  average  of 
the  iteration  number  as  the  AVSNR2  increases  over  the  total  range. 
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Results  For  Wide  Gaussian  Iteration 


Examining  Tables  (3.9)-(3.12)  or  Figures  (3.9)-(3.16),  one  can  see  clearly 
the  monotonic  increase  in  the  average  iteration  number  as  the  average  SNR 
increases.  For  the  ordinate-dependent  noise  the  average  iteration  number  for 
the  LI  norm  is  higher  than  that  of  the  L2  norm  in  the  region  AVSNR2  5 to 
200,  and  the  L2  norm  is  slightly  higher  in  the  rest  of  the  range.  For  constant 
noise  the  average  iteration  number  for  the  Ll  norm  is  higher  than  that  of  L2 
in  the  range  AVSNR2  7.8  to  100,  and  there  is  no  significant  difference  over 
the  rest  of  the  range.  For  the  Ll  norm  the  average  iteration  number  of  the 
ordinate-dependent  noise  is  higher  than  that  of  the  constant  noise.  However 
for  the  L2  norm  the  average  iteration  number  of  the  constant  noise  case  is 
higher  than  that  of  the  ordinate-dependent  case. 

As  in  the  narrow  Gaussian  case  for  both  Ll  and  L2  norms,  and  for  both 
the  ordinate-dependent  and  constant  noise,  there  is  a monotonic  increase 
in  average  iteration  number  as  the  AVSNR2  increases.  The  data  show  no 
fluctuation  in  the  average  iteration  number  as  AVSNR2  increases  over  the 
total  range. 


Comparison  of  Narrow  to 
Wide  Iteration  Results 


From  the  investigation  of  Tables  (3.5)-(3.9)  and  (3.12),  the  monotonic 
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increase  in  average  iteration  number  as  AVSNR2  increases  is  very  clear.  For 
both  constant  and  ordinate-dependent  noise  and  for  both  LI  and  L2  norms, 
the  average  iteration  number  of  the  wide  Gaussian  is  larger  than  those  of  the 
narrow  Gaussian  over  the  full  range. 

Error  Results  For  Narrow  Gaussian 


Tables  (3.13)-(3.16)  and  Figures  (3.17)-(3.24)  show  the  average  error 
ratios  versus  AVSNR.2.  It  should  be  noted  that  a smaller  value  in  the 
table  corresponds  to  a larger  improvement  in  error  with  the  application  of 
Morrison’s  noise  removal  methods.  It  is  also  should  be  noted  that  an  average 
error  ratio  greater  them  one  implies  no  error  improvement  in  the  restored 
results. 

For  the  Ll  and  L2  norms  and  for  the  constant  and  ordinate-dependent 
cases  the  larger  error  jmprovements  take  place  in  the  low  SNR’s.  For  both 
noises  and  both  norms  there  is  a monotonic  decrease  in  error  improvement 
and  no  fluctuations  noticed  over  the  full  range. 

For  ordinate-dependent  noise  there  is  no  error  improvement  in  the  range 
of  AVSNR2  from  755  to  1000,  and  the  significant  error  improvement  takes 
place  in  the  AVSNR2  2.3  to  75  range.  For  the  ordinate-dependent  noise  the 
L2  norm  has  a significantly  greater  error  improvement  than  the  Ll  in  the  low 
SNR  range  but  this  difference  is  slight  over  the  rest  of  the  range.  For  the  Ll 
norm  the  error  improvement  for  the  ordinate-dependent  noise  is  greater  than 
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that  of  the  constant  case  in  the  AVSNR2  2.2  to  100  range.  However,  the 
error  improvement  for  the  constant  noise  is  slightly  greater  for  the  rest  of  the 
range.  For  the  L2  norm  the  error  improvement  for  the  ordinate-dependent 
noise  is  larger  than  that  of  the  constant  noise  over  the  full  range. 

Error  Results  for  Wide  Gaussian 


Tables  (3.17)-(3.20)  and  Figures  (3.25)-(3.32)  show  the  average  error 
improvement  versus  AVSNR2  for  the  wide  Gaussian.  For  both  constant  and 
ordinate-dependent  noise  the  average  error  improvements  for  the  L2  norm 
are  greater  than  that  of  the  Ll  norm  over  the  full  range  of  AVSNR2.  It  is 
also  noticed  that  the  average  error  improvement  is  greater  at  low  SNR  for 
both  Ll  and  L2  norms  and  both  ordinate-dependent  and  constant  noise.  The 
ordinate-dependent  noise  has  a greater  error  improvement  than  the  constant 
noise  over  the  full  AVSNR2  range  for  both  Ll  and  L2  norms. 

In  general  both  constant  and  ordinate-dependent  and  both  Ll  and  L2 
norms  seem  to  have  no  fluctuation  of  error  improvement  with  a monotonic 
decrease  over  the  full  range. 

Comparison  of  The  Narrow  Gaussian 
to  The  Wide  Gaussian  Error  Results 


Comparison  of  Tables  (3 . l3)-( 3. 16)  and  (3.17)-(3.20)  shows  that  the  er- 
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ror  improvements  in  the  wide  case  are  greater  than  those  of  the  narrow  case 
for  both  constant  and  ordinate-dependent  noise,  and  for  both  the  Ll  and 
L2  norms.  In  the  constant  case  the  error  improvements  for  the  Ll  and  L2 
norm  of  the  wide  case  are  better  than  those  of  the  narrow  case  especially 
at  higher  SNR.  The  same  thing  can  be  said  about  the  Ll  norm  for  the 
ordinate-dependent  noise.  For  the  ordinate-dependent  noise  and  for  the  L2 
norm,  the  error  improvement  of  the  wide  Gaussian  is  much  greater  than  that 
of  the  narrow  Gaussian  over  the  full  range  of  SNR. 


NARROW  ORDINATE 
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Chapter  IV 

Morrison’s  Noise  Removal  Prior  To  Deconvolution 


This  chapter  presents  the  study  of  the  optimum  use  of  Morrison’s  noise 
removal  prior  to  deconvolution.  After  each  Morrison  iteration  is  applied  to 
the  data,  the  data  are  deconvolved  by  convolution  with  the  two  optimum 
inverse  filters,  either  the  257  point  narrow  case  filter  or  the  129  point  wide 
case  filter.  The  deconvolved  result  is  then  compared  to  the  known  input,  f, 
using  the  Ll  and  L2  norms.  The  error  in  the  deconvolution  is  then  stored 
and  compared  to  the  error  of  the  result  from  the  succeeding  iteration.  The 
same  techniques  for  convergence  used  in  Chapter  III  are  used  in  this  chapter. 

Optimization  Procedure 


The  same  experimental  procedure  used  in  Chapter  III  is  also  used  here. 
Data  sets  having  SNR’s  of  2 to  1000  are  created  by  varying  the  NSF.  An 
average  SNR,  AVSNR,  and  standard  deviation,  SDSNR,  from  the  100  data 
set  for  each  NSF  are  calculated  in  a similar  way  as  in  Chapter  III.  However, 
there  are  50  data  sets  that  are  optimized  for  the  deconvolution  case  instead 
of  100.  The  number  is  reduced  to  50  merely  to  save  computer  time. 
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Convergence  Criteria 


Once  again  the  convergence  criteria  formulas  used  are  the  same  as  those 
used  in  Chapter  III.  However,  in  this  chapter  the  convergence  values  are 
different.  The  convergence  values  of  the  narrow  constant  and  the  narrow 
ordinate-dependent  noise  are  DF1=0.0005  and  DF2=0. 00005,  and  for  the 
wide  case  the  convergence  values  for  the  ordinate-dependent  and  the  constant 
noise  are  0.0000  and  0.0000. 

These  values  were  chosen  according  to  the  expected  behavior  of  increas- 
ing optimum  iteration  number  with  increasing  SNR.  Also  minimization  of 
error  is  heavily  considered.  Similar  tables  and  figures  to  those  listed  in 
Chapter  III  are  also  listed  in  this  chapter. 

Results  For  The  Narrow  Gaussian  Iterations 


Examining  Tables  (4.5)-(4.8)  or  Figures  (4.1)-(4.8),  one  can  see  that 
the  average  number  of  iterations  increase  as  the  AVSNR2  increases  for  both 
constant  and  narrow  noise  and  for  both  Ll  and  L2  norms. 

It  is  also  noticed  that  the  average  iteration  number  remains  at  the  con- 
stant value  1 over  the  AVSNR2  2.2  to  10  range.  For  the  ordinate-dependent 
noise  the  average  number  of  iterations  for  the  Ll  norm  is  slightly  higher  than 
that  for  the  L2,  and  the  opposite  is  true  for  the  constant  noise. 
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Both  the  ordinate-dependent  and  the  constant  noise  have  nearly  the 
same  average  number  of  iterations  over  the  same  range. 

Results  For  The  Wide  Gaussian  Iterations 


From  the  investigation  of  Tables  (4.9)-(4.16)  or  Figures  (4.9)-(4.16)  it 
is  clear  that  in  the  wide  case  the  average  number  of  iterations  increases 
monotonically  as  AVSNR2  increases  for  both  norms  and  for  both  noise  types. 
For  both  noise  types  and  both  norms  the  average  iteration  number  remains 
constant  at  a value  of  1 for  AVSNR2  in  the  2.2  to  10  range. 

For  both  noise  types  the  average  iteration  number  in  the  L2  case  is 
higher  than  that  of  the  Ll  case. 

Error  Results  For  The  Narrow  Gaussian 


From  Tables(4.13)-(4.16)  or  Figures  (4.16)-(4.24) , one  can  see  that  for 
both  noise  types  and  for  both  norms  the  average  error  improvement  de- 
creases monotonicaly  as  the  AVSNR2  increases.  Once  again  the  largest  error 
improvement  takes  place  in  the  low  AVSNR2  range.  The  error  improve- 
ments at  the  higher  AVSNR2  remain  constant.  The  error  improvements  are 
nearly  the  same  for  both  noise  types  and  for  both  norms. 


Error  Results  For  The  Wide  Gaussian 
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By  examination  of  Tables  (4.17)-(4.20)  or  Figures  (4.24)-(4.32),  it  is  easy 
to  see  the  monotonic  decrease  in  error  improvement  as  AVSNR2  increases  for 
both  constant  and  ordinate-dependent  noise  and  for  both  Ll  and  L2  norms. 
For  both  noise  types  the  large  error  improvement  is  at  the  low  and  middle 
AVSNR2  range  and  it  decreases  monotonically  at  the  higher  AVSNR2  range. 

Both  noise  types  have  nearly  the  same  error  improvements  over  the 
same  range  of  AVSNR2  for  both  norms.  Also  for  both  noise  types  the  error 
improvements  for  the  Ll  case  are  greater  than  that  of  the  L2. 


Comparison  Between  The  Narrow  And  Wide  Iterations 


Investigating  Tables  (4.5)-(4.12),  one  can  see  that  for  both  noise  types, 
both  Gaussians,  and  both  norms,  that  the  average  iteration  number  is  con- 
stant over  the  low  AVSNR2  range.  Also  for  both  Gaussians,  both  noise 
types,  and  both  norms,  the  average  number  of  iterations  increases  monoton- 
ically as  the  AVSNR2  increases.  However,  this  monotonic  increase  is  very 
slow  in  the  wide  case  but  it  is  large  for  the  narrow  case.  For  both  noise  types 
and  both  norms  the  average  iteration  number  for  the  narrow  case  is  much 
higher  than  that  of  the  wide  case  over  the  middle  of  the  AVSNR2  range. 

Comparison  Between  Narrow  And  Wide  Gaussian  Errors 


Tables(4.13)-(4.20)  show  that  the  average  error  improvement  decreases 
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monotonically  as  the  AVSNR2  increases  for  both  Gaussians,  both  noise  types, 
and  both  norms.  It  is  also  noticed  that  greater  error  improvement  occurs 
over  the  low  AVSNR2  range.  In  the  wide  case  the  error  improvement  is  much 
greater  than  that  of  the  narrow  case  for  both  noise  types  and  both  norms, 
especially  over  the  low  AVSNR2  range. 
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Chapter  V 
Scaled  Input 


The  effect  of  the  size  of  the  input  on  the  convergence  criteria,  the  op- 
timum iteration  number,  and  the  error  improvement  when  using  Morrison’s 
noise  removal  alone  and  prior  to  deconvolution  is  discussed  in  this  chapter. 

The  input  used  is  the  same  input  used  before,  except  that  its  size  has 
been  reduced  to  one  fourth  of  the  previous  input.  The  same  labels  f,  g,  and 
h.  as  in  the  previous  chapters,  are  used  in  this  chapter.  Similar  figures  and 
tables  to  those  listed  in  Chapter  III  and  IV  are  also  presented  in  this  chapter. 

With  the  new  f the  convergence  value  has  to  be  changed.  However, 
DFl  remains  the  same  because  the  numerator  and  the  denominator  are  both 
divided  by  one  fourth.  DF2  has  to  be  divided  by  one  fourth  to  obtain  the  new 
convergence  criterion.  It  has  been  found  that  with  the  given  convergence 
criteria,  exactly  the  same  optimum  iteration  numbers  and  the  same  error 
improvements  are  obtained.  An  additional  table  with  convergence  values  of 
DF1=0.0000  and  DF2  =0.0000  for  noise  removal  alone  is  also  presented. 

Tables  (5.l)-(5.20)  correspond  to  tables  listed  in  Chapter  III  and  Tables 
(5.20)-(5.40)  correspond  to  tables  listed  in  Chapter  IV.  Since  they  are  listed 
and  unchanged,  there  is  no  need  to  replot  the  figures.  One  can  refer  to  those 
figures  in  Chapter  III  and  Chapter  IV  for  more  information. 
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Chapter  VI 

Comparison  Between  Different  Inputs 


The  purpose  of  this  study  is  to  see  how  different  inputs  affect  the  opti- 
mum iteration  number  as  well  as  the  error  improvement.  For  the  purpose 
of  illustration,  only  the  constant  noise  case  and  the  L2  norm  will  be  studied 
for  Morrison’s  method  for  noise  removal  alone  and  for  noise  removal  prior  to 
deconvolution. 

The  term  (old  input)  refers  to  the  input  used  by  Leclere  (1984),  and 
the  (new  input)  refers  to  the  input  used  in  this  thesis.  One  can  refer  to 
Leclere’s  thesis  to  see  the  exact  values  listed  in  his  tables.  In  addition,  one 
can  refer  to  Figures  (6.l)-(6.8)  in  this  chapter  where  the  new  data  and  the 
old  data  are  plotted  to  see  a summary  of  his  results  and  to  understand  the 
comparison. 

Figure  (6.1)  shows  the  average  iteration  number  versus  the  natural  log  of 
the  average  SNR.  for  noise  removal  alone  for  the  narrow  case.  Investigating 
this  figure  one  can  see  that  the  new  f has  a smaller  average  iteration  number 
than  the  old  input.  Also,  the  new  average  iteration  number  is  smoother  and 
has  less  fluctuation  over  the  full  AVSNR2  range.  This  is  probably  because 
the  old  input  is  more  sensitive  to  the  convergence  value  chosen. 

Figure  (6.2)  shows  the  relation  of  the  average  error  improvement  to  the 
natural  log  of  the  average  SNR  for  the  noise  removal  alone  for  the  narrow 
case.  In  the  low  range  of  the  AVSNR2  the  new  data  have  lower  values 
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and  thus  greater  error  improvements.  However,  at  higher  AVSNR2  the  two 
inputs  merge  and  both  have  nearly  the  same  error  improvements. 

Figure  (6.3)  shows  the  average  iteration  number  versus  the  natural  log 
of  the  average  SNR  for  the  noise  removal  alone  for  the  wide  case.  Studying 
Figure  (6.3),  one  can  see  that  the  old  input  has  more  than  double  the  average 
iteration  number  of  the  new  input.  It  is  also  clear  from  the  figure  that  the 
new  input  has  less  fluctuation  than  the  old  input. 

Figure  (6.4)  shows  the  average  error  improvement  versus  the  natural 
log  of  the  average  SNR  for  the  wide  case  for  noise  removal  alone.  From 
the  figure  one  can  see  that  there  is  no  error  improvement  in  the  range  of 
AVSNR2  135  to  1000  in  the  old  input  case.  However,  for  the  new  input  the 
error  improvement  takes  place  over  all  the  AVSNR2  range.  The  new  input 
also  has  a greater  error  improvement  over  all  the  AVSNR2  range,  especially 
over  the  high  AVSNR2  range. 

Figure  (6.5)  is  a plot  of  the  average  iteration  number  versus  the  natural 
logarithm  of  the  average  SNR  for  noise  removal  prior  to  deconvolution  for  the 
narrow  case.  This  figure  shows  that  the  old  input  has  a higher  average  iter- 
ation  number  than  the  new  input.  Also  the  new  input  has  less  fluctuation, 
especially  in  the  middle  of  the  AVSNR2  range. 

Figure  (6.6)  shows  the  average  error  improvement  versus  the  natural  log 
of  the  average  SNR  for  noise  removal  prior  to  deconvolution  for  the  narrow 
case.  The  new  input  has  a greater  error  improvement  than  the  old  input, 
especially  over  the  low  and  middle  AVSNR2  range.  The  two  inputs  have 
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nearly  the  same  error  improvement  over  the  higher  AVSNR2  range  however. 

Figures  (6.7)  and  (6.8)  represent  the  average  iteration  numbers  and  the 
error  improvements  versus  the  natural  log  of  the  average  SNR  for  the  wide 
case  for  the  noise  removal  prior  to  deconvolution.  Studying  Figures  (6.7) 
and  (6.8),  one  can  see  that  the  old  input  has  about  three  times  as  many 
iteration  numbers  as  the  new  input.  The  new  input  also  shows  four  times 
better  error  improvement  than  the  old  input  and  less  fluctuation  of  the  error 
improvement  values  over  all  the  range. 


6.5) 
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Chapter  VII 
Conclusion 

Comparison  Of  The  Two  Applications 
Of  Morrison’s  Method 


It  should  be  noted  that  in  general  after  the  data  are  deconvolved,  a 
greater  error  improvement  is  expected.  This  is  true  for  both  narrow  and 
wide  cases.  However,  the  error  improvement  for  the  wide  case  is  much 
greater  than  that  of  the  narrow  case. 

For  the  purpose  of  illustration,  only  the  ordinate-dependent  noise  will 
be  considered  in  this  comparison  for  the  wide  and  narrow  cases.  One  can 
refer  to  the  tables  in  Chapter  III  and  in  Chapter  IV  for  the  comparison  for 
the  constant  case. 

Studying  Tables  (3.5),  (3.13)  and  (4.5),  (4.13)  or  their  corresponding 
figures,  one  can  see  that  both  noise  removal  alone,  NRA,  and  noise  removal 
prior  to  deconvolution,  NRPD,  have  the  same  average  iteration  numbers  for 
the  low  values  of  AVSNR2,  and  that  the  iteration  numbers  start  to  diverge 
as  the  AVSNR2  increases.  In  NRA  the  average  number  of  iterations  is  less 
than  that  of  NRPD  for  both  norms,  especially  in  the  AVSNR2  300  to  1000 
range.  From  Tables  (3.13)  and  (4.13)  the  error  improvements  for  NRPD 
are  greater  than  that  of  NRA  especially  in  the  low  and  low  middle  AVSNR2 
range.  At  a higher  AVSNR2  range  both  methods  have  nearly  the  same  error 
improvements  except  at  the  last  two  values,  where  no  error  improvement  took 
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place  in  NRA  for  the  Ll  norm. 

For  the  wide  Gaussian,  investigation  of  Tables  (3.9),  (3.17)  and  (4.9), 
(4.17)  or  their  corresponding  figures  shows  that  the  number  of  iterations 
in  NRA  is  much  larger  than  that  of  NRPD  for  both  Ll  and  L2  norms. 
The  larger  numbers  of  iterations  occur  especially  in  the  middle  and  higher 
AVSNR2  range.  However,  average  error  improvements  for  NRPD  were 
much  better  than  those  of  NRA  especially  for  the  Ll  norm.  A greater  error 
improvement  occurs  in  the  low  SNR  range. 

It  is  clear  from  Tables  (3.17)  and  (4.17)  that  the  error  improvements 
between  results,  before  and  after  Morrison’s  technique  is  applied,  are  greater 
for  the  deconvolution  for  both  the  narrow  and  wide  cases.  However,  a much 
greater  effect  on  error  improvement  takes  place  in  the  wide  Gaussian  case 
where  the  relatively  large  number  of  small  magnitude  components  at  high 
frequencies  in  G(s)  cause  great  amplification  of  noise  in  deconvolution  without 
the  application  of  Morrison’s  method. 
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Further  Study 


An.  interesting  further  study  would  be  a.  theoretical  one  to  determine  a 
general  way  to  calculate  convergence  values  which  could  be  applied  to  dif- 
ferent inputs.  This  of  course  requires  some  knowledge  of  all  the  parameters 
that  affect  the  convergence  criteria.  Success  in  this  endeavor  would  allow 
one  to  have  a more  definitive  idea  of  the  behavior  of  the  optimum  iteration 
as  well  as  the  optimum  error  improvements. 

Another  interesting  study  would  be  to  see  how  the  results  of  Chapters 
III  and  IV  would  change  with  different  response  widths. 
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Appendix 


The  Computer  Program  And  A Brief  Documentation 


The  computer  program,  OCDCND,  used  in  this  study  is  similar  to  that 
used  by  Leclere  (1984)  with  some  modifications.  OCDCND  is  written  in 
FORTRAN  and  used  to  calculate  all  the  results  of  this  thesis. 

The  input  to  the  program  is  either  expanding  or  non-expanding  decon- 
volution. The  non-expanding  choice  is  used  in  this  study.  This  is  followed 
by  the  input  for  choosing  the  type  of  Gaussian,  either  1 for  narrow  or  2 for 
wide.  The  length  of  the  Gaussian  is  9 points  for  the  narrow  and  21  for  the 
wide.  Then  the  size  of  the  output  h is  to  be  entered.  The  size  of  h is  32  in 
the  case  of  the  narrow  g and  44  in  the  case  of  the  wide  g.  This  is  followed  by 
the  size  of  the  input,  which  is  24  points.  The  number  of  the  SNR’s  desired  is 
entered  and  followed  by  the  data  file  number  that  contains  the  SNR  s.  Next 
is  the  number  of  points  of  the  optimum  length  inverse  filter.  The  length  of 
the  inverse  filter  transform  selected  for  this  study  is  256  points  in  the  narrow 
case  and  128  points  in  the  wide  case.  Then  comes  the  choice  of  the  applica- 
tion of  Morrison's  method  to  noise  removal  alone  or  prior  to  deconvolution. 
Entering  number  2 will  produce  the  results  of  Chapter  III  while  entering  1 
will  produce  the  results  of  Chapter  IV.  This  is  followed  by  the  type  of  noise 
to  be  added.  Entering  number  1 corresponds  to  ordinate-dependent  noise, 
2 corresponds  to  constant  noise,  and  3 corresponds  to  a mix  of  noise  (which 
has  not  been  used  in  this  study).  Next  the  maximum  number  of  restorations 
is  entered.  The  number  of  restorations  in  this  study  is  limited  to  900.  The 


CO 
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iterations  will  be  terminated  when  the  error  is  minimum  or  convergence  of 
error  is  attained.  Then  the  number  of  data  sets  to  be  optimized  is  chosen, 
either  100  for  the  case  of  noise  removal  alone  or  50  in  the  case  of  deconvolu- 
tion for  this  study.  This  is  followed  by  the  error  window  size,  the  number 
of  points  over  which  the  error  is  to  be  calculated  over.  This  is  either  32  for 
the  narrow  case  or  44  for  the  wide  case.  And  lastly  the  convergence  value 
for  the  fractional  difference  and  then  the  value  for  the  absolute  difference  are 
entered. 

All  the  results  listed  in  Chapters  III,  IV,  and  V are  obtained  from  the 


output  files  of  OCDCND. 
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IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DOUBLE  PRECISION  GT , GTH , DATA , GTR , GTMAG , HPMG , HPMAG , HMG 
DIMENSION  ER(500) ,HOLD(512) ,ERR(30,5) ,ADDNS(30) ,MXSNR(30) , 

• SVSNR2(200,30) , ERIT (900,2) ,AVSNR2(30) ,MNSNR(30) ,OPTIT(100,30,2) , 

. AVITNM(30,2) , SDITNM(30,2) ,OPTER(100,30 , 2) , ERBFM( 100 ,30,2) , 

. H(256) ,G(256) , F(256) ,GTR(1025) ,HO(100) ,GT(2050) ,GTMAG(2050) . 

• HZ(512) ,HN(256) ,HP(256) .HAF(100) ,HBF( 100) , SNRS(30) ,SFO(30) , 

« HPMAG ( 2050 ) ,ERTRNC( 100.30,2) ,HMG(2050) ,DC(100.30) ,SFC(30) 

INTEGER  P , Z , ANS . GT YP , SNRN02 , LG 1 ( 30 . 3 ) . LG2 ( 30 . 3 ) 

REAL*8  MXSNR , MNSNR , M I N ER 1 .MINER2. MAXIM 

COMMON  LRAN 

LRAN-999 

LI-0 

c 

c ENTER  DATA  * NUMBER  OF  POINTS  IN  GT 
CALL  ENTERD ( GTYP .N.M.L.G.H.F.NT.SF.SFMIN, ANS . NMRES . NMSNR , 

• NMERWD, CON, CONI , ISC, ITR, IDC.OMIX.CMIX.SNRS.NMNSF .SCLNS.NEX, IEX) 

CALL  SCFCTR (M . SNRS , SFO , SFC . MAX IM , SLPO , SLPC , NMNSF . H ) 

c ADD  ZEROS  WITH  PREPGT  FOR  LENGTH  NT  k IMG.  - 0 
CALL  PREPGT (GT, NT, N.G) 

CALL  FFT (GT ,NT ,-1 ) 

c CALCULATE  MAGNITUDE  OF  TRANSFORM  GT 
CALL  MAGGT(GT, NT, GTMAG) 

IF  (IDC.EQ.2)  GO  TO  80 
c CALCULATE  1 /TRANS FORM  GT 
CALL  INVTRN(GT.NT) 
c BACK  TO  FUNCTION  DOMAIN 
CALL  FFT(GT,NT,+1 ) 
c SHIFT  PEAK 
CALL  SHIFGT(GT.NT) 

c NORMALIZE  INVERSE  IMPULSE  RESPONSE  k MAKE  SYMETRIC(ODD) 

CALL  NRMSMR(GT.NT) 
c DELETE  IMAGINARY  PART  OF  GT 
CALL  GTREAL(GTR.GT.NT) 

c G— INV  IS  NOW  CALCULATED  WILL  NOW  ADD  NOISE  TO  H 

c CALCULATE  AVERAGE  SNR  FOR  100  NOISE  ADDITIONS  k SD  — 

c CONTINUE  ADDING  NOISE  — FOR  NMSNR  WITHIN  +/--5SD  RANGE 

80  LI-0 

45  LI-LI+1 

K— 1 

50  IF  (ANS. EQ. 3)  CALL  80TH(H.HP.HZ.SF0,SFC.SNR,M,N.0MIX.CMIX, 

• LI .MAXIM, SCLNS) 

IF  (ANS. EQ. 2)  CALL  CONST(H.HZ,HP.SFC,RMS,SNR,M,N, LI .MAXIM) 

IF  (ANS. EQ. 1 ) CALL  ORDNOI (H .HZ .HP .SFO, RMS , SNR ,M . N , LI .MAXIM) 

IF  (IEX.EQ.1)  CALL  EXPNH(H,M.N, I EX , NEX , HP , HZ . LI ,K) 

1 FORMAT ( I ) 

c DO  DECONVOLUTION  BEFORE  MORRIS.  AND  AFTER  MORRIS.  AT  EACH 

c ITTERATION  * CALC.  ERROR  OF  DECONVOLVED  RESULT  BY  COMPARING 

c TO  F- INPUT 

CALL  ERROR (K , M , N , H , ER , SNR , LI . ERR , SF , OPT  I T , SVSNR2 , HN . SNRN02 , 
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. NM2K,ADDNS,HP,G,HZ,NMRES,0PTER,ERBFM,NT , L.GTR.F ,MRS,NMSNR, 
. NMERWD , CON , CON 1 , ERTRNC , GTMAG , LG 1 , LG2 , I SC . DC . I TR . I DC ) 

IF  (IEX.EQ.1)  CALL  EXPNH(H.M.N, IEX.NEX.HP ,HZ, LI ,K) 

IF  (K. LE. 100)GO  TO  50 
IF  (SNRN02 . LT . NMSNR )G0  TO  50 
IF  (LI . LT.NMNSF)  GO  TO  45 

CALL  OUTPUT ( ERR . L I , NM2K , OPT I T , SNRN02 , SVSNR2 . GTYP . ANS , ADDNS , 

• OPTER, ERBFM, ERTRNC, LG1 ,LG2, DC. ITR, ISC, IDC.SNRS.OMIX.CMIX. 

. SFO.SFC.SLPO.SLPC, CON, CONI ,NEX, IEX) 

STOP 

END 

c LIMITS  FOR  NON-EXPANDING  DECONVOLUTION 

SUBROUTINE  LIMIT(KC,KF,M,NT,N, KCC , K FF ) 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

INTEGER  KC(200) ,KF(200) ,P,A,B,D, E,KCC(200) ,KFF(200) ,R 

P-NT/2 

DO  10  1-1 ,M 

A— 1 

B-I-P 

IF  (A.GE.B)  KC( I )— A 
IF  (A.LT.B)  KC( I )-B 
D-I+P 
E-M 

IF  (D.GE.E)  KF( I )-E 
IF  (D.LT.E)  KF( I )-D 
10  CONTINUE 

P-NT/2- ( N- 1 )/2 
R— NT/2+(N-1 )/2 
DO  20  1-1  ,M 
A— 1 
B-I-P 

IF  (A.GE.B)  KCC( I )-A 
IF  (A.LT.B)  KCC( I )— B 
D-I+R 
E«M+N— 1 

IF  (D.GE.E)  KFF ( I )— E 
IF  (D.LT.E)  KFF( I )— D 
20  CONTINUE 

RETURN 
END 

c 0 E-CONVOLUTION  PROGRAM 

SUBROUTINE  DECONV(GTR,HI ,HO.M,NT.N,MRS,KC,KF,KCC,KFF) 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DOUBLE  PRECISION  GTR.DPHI .DPHO.TEMP 

DIMENSION  GTR( 1025) ,HI (256) ,HO(256) ,DPHI (256) ,DPHO(256) 
INTEGER  KC(200) , KF(200) ,Q.KCC(200) ,KFF(200) 
c COMPUTE  CONVOLUTION 

IF  (MRS. EQ.0)  GO  TO  20 
0(NT/2)  + (N-1  )/2+1 
DO  1 1=1  . M+N— 1 
DPHI ( I )-HI ( I ) 
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DO  10  1-1 ,M 
DPHO( I )— 0. 

DO  5 J— KCC( I ) , KFF( I ) 

TEMP— DPHI ( J)*GTR( I-J+Q) 

5 DPHO( I )— OPHO( I )+TEMP 

H0( I )— DPHO( I ) 

10  CONTINUE 

IF  (MRS.GT.0)  GO  TO  70 
20  Q-(NT/2)+1 

00  11  1-1  ,M 

11  DPHI ( I )— HI ( I ) 

DO  30  1-1 , M 
DPHO( I )-0 . 

DO  25  J-KC(I) ,KF(I) 

TEMP-DPHI(J)*GTR( I-J+Q) 

25  DPHO( I )— OPHO( I )+TEMP 

H0( I )— OPHO( I ) 

30  CONTINUE 

70  RETURN 

END 
C 
C 
C 

c SMOOTH,  RESTORE  t ERROR  AT  EACH  ITERATION 

C 
C 

SUBROUTINE  SMRSER(N,M,HP,G.K,LI .HZ.H.NMRES.OPTIT , SNRN02 .OPTER , 

* L , GTR , F , NT , MRS , HN , NMERWD , CON , CONI ,KC,KF,KCC,KFF , LG1 . LG2 , ISC , IDC) 
IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DOUBLE  PRECISION  GTR 

DIMENSION  H(256) ,HP(256) ,HN(256) ,HZ(256) ,G(256) ,GTR(1025) , 

« OPTIT( 100,30,2) ,ERIT(900.2) .OPTER (100, 30, 2) , 

. HAF ( 1 00) . F(256) 

INTEGER  P.Q.SNRN02. JC(200) . JF(200) ,KC(200) ,KF(200) ,KCC(200) . 

• KFF(200) , LG1 (30,3) . LG2(30,3) 

REAL*8  MINER1 .MINER2 

C TYPE  1 

Cl  FORMAT (/ ' IN  SMRSER  ’/) 

IF  (NMRES.EQ.0)  GO  TO  70 

IF  (LI . EQ. 1 .AND.SNRN02. EQ. 1 ) CALL  LIM(JC, JF ,M,N) 
c SMOOTH  ANO  RESTORE  EACH  HP 

ITNK*-1 

62  IF  ( ITNM.GT.NMRES)  GO  TO  70 

IF  (ITNM.GT. 1 ) GO  TO  65 
CALL  SMOOTH(N ,M , HP ,G , HN) 

GO  TO  66 

65  IF  (ISC.EQ.0)  CALL  RESTOR(N.M,G,HN,HZ, JC, JF) 

IF  (ISC.EQ.1)  CALL  RSTR(N .M.G.HN.HZ . JC , JF) 

C 

C 
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c CALCULATE  ERROR  AT  EACH  ITERATION 

66  MRS=ITNM 

IF  (IDC.EQ.2)  GO  TO  30 

CALL  DECONV(GTR , HN , HAF , M , NT , N . MRS , KC , KF , KCC , KFF) 
c WRITE(62,41) 

FORMAT (/ ’ HAF’ , 10X, 'Ll ’ ,7X, ’SNRN02’ , 7X, ’ ITNM’/) 
c WRITE(62 , 42)LI .SNRN02, ITNM 

C42  FORMAT (31) 

C WRITE(62,40)(HAF(I).I«1,M) 

C40  F0RMAT(8(1PE16.8)) 

30  CALL  ERRITR(N,M, ITNM,NMRES.H,HAF,K, LI , ERIT , OPT IT , SNRN02 .OPTER , L, 

« F ,NT .NMERWD .C0N.C0N1 . LG1 , LG2.MRS, IDC.HN) 

ITNI*»ITNM+1 

68  FORMAT (G) 

69  F0RMAT(5( 14) ) 

GO  TO  62 

C70  TYPE  69.NMRES, ITNM.K.SNRN02.LI 

70  RETURN 
END 

C SMOOTH  DOES  THE  INITIAL  SMOOTHING.  ANO  STORES  THE  RESULT  IN  HN 

c HN-H*G 

SUBROUTINE  SMOOTH(N.M.HP.G.HN) 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DIMENSION  HP(256) ,G(256) ,HN(256) 

INTEGER  A.B.C.D.E.F 
405  FORMAT (4G) 

DO  420  I**1  ,M+N— 1 
HN(I)«0. 

A-1 

B=I— N+1 

IF  (A.GE.B)  C=A 
IF  (A.LT.B)  08 
D-I 

E*M 

IF  (D.GE.E)  F-E 
IF  (D.LT.E)  F-D 
DO  410  J=«C.F 
TEMP*HP( J ) »G( I— J+1 ) 

HN(I)-HN(I)+TEMP 
410  CONTINUE 

420  CONTINUE 

RETURN 
END 

c STORE  LIMITS  OF  RESTORATION  CONVOLUTION 

SUBROUTINE  LIM(JC. JF.M.N) 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

INTEGER  P.A.B.D.E, JC(200) ,JF(200) 

P-(N-1 )/2 
K-M+I+-1 
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DO  10  1-1 ,K 
A— 1 
B-I-P 

IF  (A.GE.B)  JC( I )— A 
IF  (A.LT.B)  JC( I )-B 
D-I+P 
E-K 

IF  (D.GE.E)  JF( I )-E 
IF  (D.LT.E)  JF(I)-D 
10  CONTINUE 

RETURN 
END 

C RESTORE  DOES  RESTORING  ITERATIONS 

SUBROUTINE  RESTOR(N,M,G,HN,HZ, JC, JF) 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DIMENSION  S(512) ,G(256) ,HN(256) ,HZ(256) ,HOLD(256) ,V(256) 

INTEGER  P,Q, JC(200) , JF(200) 

P— (N— 1 )/2 
Q-(N+1)/2 
K— M+N— 1 
DO  300  1-1  , K 
HOLD(I)— HN(I) 

300  S( I )— HZ( I )— HN( I ) 

00  330  1-1  , K 
V(I)-0. 

DO  320  J-JC(I).JF(I) 

TEMP— S(J)*G(I-J+Q) 

320  V( I )— V( I )+TEMP 

330  CONTINUE 

DO  340  1-1  , K 

340  HN( I )— HOLD( I )+V( 1 ) 

RETURN 

END 

c RESTORE  DOES  RESTORING  ITERATIONS  - POINT  SUCCESSIVE 
SUBROUTINE  RSTR(N .M,G , HN . HZ . JC . JF) 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DIMENSION  S ( 5 1 2 ) ,G(256) ,HN(256) ,HZ(256) 

INTEGER  P.Q. JC(200) ,JF(200) 

P— (N— 1 )/2 
0-(N+1)/2 
K— M4N— 1 
DO  300  1-1 ,K 

300  S( I )-HZ( I )-HN( I ) 

DO  330  1-1  , K 

DO  320  J-JC(I) . JF( I ) 

TEMP»S( J ) »G( I-J+Q) 

320  HN( I )-HN( I )+TEMP 

330  S( I )— HZ( I )— HN( I ) 

RETURN 

END 

c CALCULATE  ERROR  FOR  DECON.  k NOISE  REMOVAL  ALONE 
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SUBROUTINE  ERRR(FHEX, M.HF. MRS. N, SUM, SIGMA, L.NMERWO. IDC) 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DIMENSION  FHEX(256) ,HF(256) 

INTEGER  P,Q 

P-0 

SUKA*0. 

SIGMA-0. 

IF  (IEX.EQ.1)  J J— NEX* (N— 1 )/2 
IF  (IEX.NE.1)  JJ-0 
IF  (IEX.EQ.1)  k*-M-2«JJ 
IF  (IDC.EQ.2)  GO  TO  30 
IF  (NMERWD.EQ.L)  GO  TO  210 
DO  200  1-1 , (M/2-L/2) 

SUI^SUMf  ABS  ( FH  EX  ( I + J J ) ) 

SIGMA— SI GMA+FHEX( I+J J ) **2 
200  CONTINUE 

210  DO  300  I— (M/2-L/2+1 ) , (M/2+L/2) 

T EMP-FHEX ( I+J J )-HF ( I-M/2+L/2) 

SUK^SUKH-ABS(TEMP) 

S I GMA-S I GMA+T EMP • • 2 
300  CONTINUE 

IF  (NMERWD.EQ.L)  GO  TO  70 
DO  400  I-(M/2+L/2+1 ) ,M 
SUM-SUM+ABS ( FHEX ( 1+ J J ) ) 

S I GMA-S I GMA+FHEX ( I + J J ) • • 2 
400  CONTINUE 

IF  (IEX.EQ.1)  M-M+2* J J 
GO  TO  70 

30  IF  (MRS.NE.0)  P»(N-1)/2 

DO  50  1-1 , M 
Q-I+P 

TEMP— HF( I+JJ)— FHEX(Q+JJ) 

SUIA-SUM+ABS  (TEMP) 

S I GMA-S I GMA+T  EMP  * T EMP 
50  CONTINUE 

IF  (IEX.EQ.1)  M-M+2* J J 
70  RETURN 

END 

c TRUNCATE  MAG.  H TO  MAG.  G * CALCULATE  ERROR 
SUBROUT  I NE  TRNCER ( HP , HZ , M, NT . GTMAG , GTR , N , ERTRNC , SNRN02 , LI , 

• NMERWD , F,H, L.KC.KF.KCC.KFF , DC. IDC) 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DOUBLE  PRECISION  GTR , GTMAG , HPMG , HPMAG . HMG . DHNS 
DIMENSION  HP (256) ,HZ(512) ,GTMAG(2050) ,HPMG(2050) ,GTR(1025) , 

• ERTRNC (100,30,2) ,HTRC(100) ,F(256) ,H(256) ,HMG(2050) ,HNS(256) . 

. DHNS(2050) ,DC(100,30) 

INTEGER  SNRN02 , KC(200) , KF(200) ,KCC(200) ,KFF(200) 
c PLOT  MAGNITUDE  OF  NOISE  SPECTRUM  4 STORE  DC  LEVEL  OF  NOISE 
DO  5 1-1  ,M 
HNS( I )— HP( I )— H( I ) 
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c 


5 CONTINUE 

CALL  PREPHP ( NT , M , HNS , DHNS ) 

CALL  FFT(DHNS,NT,-1 ) 

DC ( SNRN02 , L I )— DHNS ( 1 ) 

c DO  6 1-1  .NT 

C6  DHNS ( I )-DSQRT ( DHNS (2*1-1)** 2+DHNS ( 2 * I ) * * 2 ) 

c WRITE(32,10)(0HNS(I),I-1 ,NT) 

c CL0SE(UNIT-32) 

c TRUNCATE  * DECONVOLVE 


C 

CALL  PREPHP ( NT, M, HP. HPMG) 

CALL  FFT(HPMG.NT.-I) 

CALL  TRUNC ( HPMG , GTMAG , NT , H , M) 

CALL  FFT(HPMG,NT.+1 ) 

C 

DO  15  1-1 ,2*NT 
15  HPMG(I)«HPMG(I)/NT 

C 

c WRITE(20.10)(HPMG(2*I-1).I-1 .NT) 

c WRITE(20.10)(HPMG(2*I).I-1 .NT) 

10  FORMAT (G) 

c CLOSE (UN IT-20) 

C 

DO  20  1-1  .M 

HP( I )-HPMG(2* 1—1 ) 

HZ( I+(N— 1 )/2)— HP( I ) 

20  CONTINUE 

MRS-0 


C 

c 

c 


IF  (IDC.EQ.1)  GO  TO  30 

c CALCULATE  ERTRNC-( TRUNCATION  NO  MORRIS.) 

CALL  ERRR(HP. M.H. MRS. N, SUM. SIGMA. L. NMERWD, IDC) 

GO  TO  410 


30 

C 

C 

C 

C 


CALL  DECONV(GTR . HP . HTRC , M , NT , N , MRS . KC . KF . KCC , KFF) 
c PLOT  DECONVOLUTION  AFTER  TRUNCATION 
c WRITE(25, 10)(HTRC(I) . 1—1 ,M) 

c CALCULATE  ERTRNC-( TRUNCATION  BUT  NO  MORRIS.) 

CALL  ERRR(HTRC.M. F, MRS, N. SUM, SIGMA, L. NMERWD, IDC) 


C 

c 


c STORE  ERROR 
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41 0 ERTRNC(SNRN02 . LI , 1 )*SUM/NM£RWD 

ERTRNC ( SNRN02 , L I , 2 ) «SQRT (SI GMA/NMERWD ) 
C 

RETURN 

END 

C 

c TRUNCATE  HPMAG  TO  GTMAG 


C 


C 


C5 

C 


10 

20 


C 

C 

c 


SUBROUT  I NE  TRUNC  ( HPMG , GTMAG , NT , H , M) 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DOUBLE  PRECISION  GTMAG, HPMAG, HPMG, HMG, TEMP. TEMPI 

DIMENSION  HPMG (2050) ,HPMAG(2050) ,GTMAG(2050) ,H(256) ,HMG(2050) 

c PLOT  MAGNITUDE  OF  H 
c WRITE(25.20)(HPMG(2*I-1).I-1 .NT) 

c WRITE(25,20)(HPMG(2*I) . 1-1 ,NT) 

c CALL  PREPHP(NT.M.H.HMG) 

c CALL  FFT(HMG,NT,-1) 

c DO  5 1-1  .NT 

HMG( I )«0SQRT(HMG(2* 1—1 ) •*2+HMG(2» I ) »*2) 

c WRITE(31,20)(HMG(I),I-1.NT) 


DO  10  1-1 , NT 

HPMAG(2*I-1 )-DSQRT(HPMG(2* 1-1 ) • »2+HPMG(2» I ) **2) 
TEMP— GTMAG(2» 1-1 )»HPMAG( 1 ) 

TEMPI— TEMP/HPMAG(2* 1-1 ) 

IF  (HPMAG(2* I— 1 ) . LE . TEMP)  GO  TO  10 
HPMG(2» 1-1 )— HPMG(2» 1—1 ) *TEMP1 
HPMG(2«I)-HPMG(2*I)*TEMP1 
CONTINUE 

c CL0SE(UNIT«31 ) 


FORMAT (G) 

c WRITE(36 , 20) (HPMAG(2* 1-1 ), 1-1 , NT) 

c WRITE(38,20)(GTMAG(2»I-1 ) , 1—1 .NT) 

C WRITE(39 , 20) (HPMG(2» I— 1 ) ,1-1 .NT) 

C WRITE(39.20)(HPMG(2*I),I-1,NT) 

c CL0SE(UNIT«25) 

c CLOSE (UN IT-36) 

c CLOSE( UN IT-38) 

c CLOSE(UN IT-39) 

RETURN 

ENO 


CALCULATE  ERROR  BEFORE  MORRISON  BY  1ST  CONVOLVING  NOISY  H k G-INV 


SUBROUT I NE  BFMER ( GTR . HP , M , NT . N , ERBFM , L I , SNRN02 , NMERWD , L , F , KC . KF . 
. KCC.KFF, IDC.H) 
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c 

c 


30 

C 

57 

C 

C41 

C42 

C40 

C 

C 

C 

C 

410 

C 


C 

C 

C 


10 


IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DOUBLE  PRECISION  GTR 

DIMENSION  GTR( 1 025) ,HP(256) ,HBF( 1 00) , ERBFM( 100,30 .2) , F(256) . 
« H(256) 

INTEGER  SNRNO2,KC(200) ,KF(200) ,KCC(200) ,KFF(200) 

MRS-0 


IF  (IDC.EQ.1)  GO  TO  30 

CALL  ERRR(HP,M,H, MRS, N.SUM, SIGMA, L.NMERWD, IDC) 

GO  TO  410 

CALL  DECONV ( GTR , HP . HBF , M , NT , N , MRS , KC , KF . KCC , KFF ) 

c PLOT  AND  PRINT  DECONVOLUTION  BEFORE  MORRIS. 

c WRITE(62,57)(HBF(I),I-1 ,M) 

FORMAT (G) 


c WRITE(61 , 41 ) 

FORMAT (/ ’ HBF ’ , 4X , ' LI ' , 5X . ’ SNRN02 ’ /) 

c WRITE(61 ,42) LI .SNRN02 


FORMAT (21) 

c WRITE(61 ,40)(HBF(I),I-1 ,M) 

FORMAT (8(1  PEI  6. 8)) 


CALL  ERRR(HBF.M,F, MRS, N.SUM, SIGMA, L.NMERWD. IDC) 

c STORE  ERROR 

ER8FM(SNRN02 , LI , 1 )-SUM/NMERWD 

ERB  FM ( SNRN02 . L I . 2 ) -SORT ( S I GMA/NMERWO ) 

RETURN 

END 


c CALCULATE  ERROR  AT  EACH  ITERATION 

SUBROUTINE  ERRITR(N.M, ITNM.NMRES .H.HAF.K , LI . ERIT , OPT I T . SNRN02 . 

• OPTER , L , F , NT , NMERWD , CON , CONI , LG1 , LG2.MRS. IDC.HN) 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DIMENSION  ERIT(900,2) ,OPTIT(100.30.2) ,H(256) ,HAF( 100) , F(256) . 

. OPTER(100,30,2).HAGR(50,2),HN(256) 

INTEGER  P , Q . SNRN02 , LG 1 ( 30 . 3 ) . LG2 ( 30 , 3 ) 

REAL*8  MINER1 .MINER2 
IF  (ITNM.GT.1)  GO  TO  10 
11-0 
12-0 
IND— 0 

IF  (IDC.EQ.1)  CALL  ERRR(HAF,M, F.MRS ,N , SUM, SIGMA, L, NMERWD. IDC) 
IF  (IDC.EQ.2)  CALL  ERRR(HN ,M. H .MRS . N , SUM, S IGMA , L, NMERWD , IDC) 
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c 

59 


C 


C 


c STORE  ERROR  EACH  ITERATION 

ER  I T ( I TNM . 1 )-SUM/NMERWO 
ER I T ( I TNM . 2 ) -SORT ( S I GMA/NMERWD ) 
IF  ( ITNM.GT. 1 )G0  TO  80 
c FIND  OPTIMUM  ITERATION 

MINER1=£RIT( I TNM, 1 ) 

0PITN1-1 
1 1 1-1 

MINER2— ERIT(  I TNM, 2) 

0PITN2-1 
1 12-1 


c TO  PLOT  DECON  CHANGE  70  TO  100  AND  DELETE  APPROPRIATE  C 


C 

80 


C 


C 

C 


C 


IF  (ITNM.EQ.1)  GO  TO  70 
IF  (II . EQ. 1 )G0  TO  200 
c CHECK  FOR  MIN.  ERROR  1 

IF  (ERIT(ITNM.I).LE-MINERI)  MINERI-ERIT(ITNM.I) 

IF  (ERIT(ITNM.I) .EQ.MINER1)  0PITN1-ITNM 
IF  (ERIT( ITNM, 1 ) . EQ.MINER1 ) II1-ITNM 
IF  (ERIT(ITNM.I).GE.ERIT(ITNM-I .1))  11-1 

c CONVERGENCE  CRITERION  ERROR  1 

0 ER I T 1 -A8S ( ER I T ( I TNM , 1 )-ERIT( ITNM-1 . 1 ) )/ERIT( ITNM-1 . 1 ) 
ERT1-ABS(ERIT( ITNM. 1 )-£RIT( ITNM-1 . 1 ) ) 

IF  (DERIT1 . LE.CON.OR. ERT1 . LE.C0N1 ) 11-1 

c SET  FLAG  TO  DETERMINE  WHICH  CONVERGENCE  CRITERION  LI 


C 

c TO  PLOT  DECON  CHANGE  200  TO  100 
IF  (II .EQ.0)  GO  TO  200 
IF  (SNRN02.GT. 1 ) GO  TO  30 
LG1  ( LI  , 1 )— 0 
LG1 ( LI , 2)-0 
LG1 (LI ,3)-0 

30  IF  (DERIT1 ,LE. CON. AND. Ill .EQ. ITNM)  LG1 ( LI . 1 )-LG1 ( LI , 1 )+1 
IF  (ERT1.LE.C0N1.AND.II1.EQ.ITNM)  LG1 (LI ,2)-LG1 (LI ,2)+1 
IF  ( (DERIT1 . LE. CON. AND . ERT1 . LE. CONI ) . AND . 1 1 1 . EQ . ITNM) 

• LG1 (LI ,3)«LG1 (LI ,3)+1 

c TYPE  37.SNRN02, LG1(LI,1),LG1(LI,2),LG1(LI,3) 

37  FORMAT (15,’  LI’, 315) 

C 


C 


c PLOT  * PRINT  OPT.  DECON.  FOR  ERROR  LI 
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Cl  00 
C11 


CC15 


21 

22 

23 

CC 

200 

C 

C 


C 

C 


C 


c IF  (II .EQ.1. AND. III. LT. ITNM)  GO  TO  15 

DO  11  1-1  ,M 
HAGR( I , 1 )— HAF( I ) 

c c IF  (II .EQ.1)  GO  TO  15 

c IF  (ITNM. EQ.1)  GO  TO  150 

c GO  TO  200 

WRITE(50, 21 ) (HAGR( 1,1), 1—1 ,M) 
c c WRITE(40,23)LI ,SNRN02,0PITN1 

c c WRITE(40.22)(HAGR(I.1),I-1.M) 

FORMAT (G) 

FORMAT(8(1PE16.8)) 

FORMAT (/’  DECON  AT  OPT.  LI ’.318/) 

IF  (I2.EQ.1)  GO  TO  300 

c CHECK  FOR  MIN.  ERROR  2 

IF  (ERIT( ITNM. 2) . LE.MINER2)  MINER2— ERIT( ITNM, 2) 

IF  (ERIT(ITNM,2) .EQ.MINER2)  0PITN2— ITNM 
IF  (ERIT(ITNM,2) .EQ.MINER2)  II2-ITNM 
IF  (ERIT( ITNM ,2) .GE. ERIT(ITNM-1 ,2))  12-1 

c CONVERGENCE  CRITERION  ERROR  2 

DERIT2— ABS(ERIT( ITNM.2)— ERIT( ITNM-1 ,2))/ERIT(ITNM-1 .2) 
ERT2-ABS(ERIT( ITNM.2)— ERIT(ITNM-1 .2)) 

IF  (DERIT2 . LE.CON .OR . ERT2. LE.C0N1 ) 12-1 

c SET  FLAG  TO  DETERMINE  WHICH  CONVERGENCE  CRITERION  L2 


C 


35 

36 


c TO  PLOT  DECON  CHANGE  300  TO  150  ANO  DELETE  C 

IF  (I2.EQ.0)  GO  TO  300 
IF  (SNRN02.GT. 1 ) GO  TO  35 
LG2( LI . 1 )«0 
LG2(LI , 2)— 0 
LG2(LI.3)-0 

IF  (DERIT2. LE.CON. AND. 1 12. EQ. ITNM)  LG2(LI , 1 )-LG2(LI , 1 )+1 
IF  (ERT2. LE. CONI .AND. II2.EQ. ITNM)  LG2(LI ,2)-LG2(LI ,2)+1 
FORMAT  (15,’  L2\3I5) 

IF  ( (DER I T2. LE.CON. AND. ERT2.LE. CONI ) .AND. 1 12. EQ. ITNM) 

* LG2( LI . 3)-LG2( LI , 3)+1 

c TYPE  36 .SNRN02, LG2(LI , 1 ) . LG2( LI ,2) , LG2( LI .3) 


C 

C 

Cl  50 
C31 


c PLOT  * PRINT  OPT.  DECON.  FOR  ERROR  L2 

c c IF  (12. EQ.1. AND. II2.LT. ITNM)  GO  TO  25 

DO  31  1-1  ,M 
HAGR( I ,2)-HAF( I ) 

c c IF  (I2.EQ.1)  GO  TO  25 

c IF  (ITNM. EQ.1)  GO  TO  70 
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c GO  TO  300 

CC25  WRITE(51 .21 ) (HAGR( I . 2) . 1-1 ,M) 

c WRITE(41 ,33)LI .SNRN02.0PITN2 

c WRITE(41 ,22) (HAGR( I .2) , I— 1 ,M) 

33  FORMAT (/ ’ DECON  AT  OPT.  12'. 318/) 

C 

C 

C 

300  IF  ( 1 1 . EQ . 1 . AND . 1 2 . EQ . 1 ) IND-1 

IF  (IN0.NE.1 .AND. ITNM.NE.NMRES)  GO  TO  70 
C 

c END  ITERATIONS  AND  STORE  RESULTS 
C 

ITNkA-NMRES 

OPT I T ( SNRN02 , L I . 1 )-0PITN1 
OPT I T ( SNRN02 . L I . 2 ) =0P I TN2 
0PTER(SNRN02 . LI . 1 )«MINER1 
0PTER(SNRN02 , LI ,2)=MINER2 
C 
C 

70  RETURN 

ENO 
C 

c ERRORS 

C 
C 

SUBROUT  I NE  ERROR ( K . M . N , H . ER . SNR .LI. ERR , SF . OPT I T . SVSNR2 , HN , 

* SNRN02 . NM2K , ADDNS , HP . G , HZ . NMRES . OPTER , ERBFM , NT , L , GTR , F , MRS , 
. NMSNR .NMERWD , CON , CONI , ERTRNC .GTMAG , LG1 , LG2 , ISC , DC , ITR , IDC) 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

D0U8LE  PRECISION  GTR . HPMG . HPMAG . GTMAG , HMG 

DIMENSION  H ( 256 ) , ER ( 500 ) , ERR (30,5) ,OPTIT(100,30.2) ,HN(256) . 

* SVSNR2 (100,30) .ADDNS (30) ,HP(256) ,G(256) , F(256) ,GTR(1025) . 

• HZ (256) , HBF( 100) .OPTER(100,30,2) ,ERBFM(100,30.2) ,DC(100.30) . 

. GTMAG (2050) .ERTRNC (100. 30, 2) ,HMG(2050) 

INTEGER  SNRN02 . KC ( 200 ) ,KF(200) ,KCC(200) ,KFF(200) . LG1 (30.3) . 

• LG2(30,3) 

ER(K)«SNR 

K - K+1 

IF  (K.LE.100)GO  TO  60 
c 

C OUTPUT  RESULTS  k AVESNR , VARSNR , SDSNR 
C 

K * K-1 

IF  (K . GT . 1 00) GO  TO  100 
AVESNR-0 . 

VARSNR-0 . 

SDSNR-0 . 

SNRNO2-0 
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DO  50  1-1  , K 

50  AVESNR-AVESNR+ER ( I ) 

AVESNR-AVESNR/K 
DO  52  1-1  , K 

52  VARSNR— VARSNR+ ( ( ER ( I )-AVESNR ) * • 2 ) 

VARSNR-VARSNR/K 
SDSNR«SQRT( VARSNR) 

C 

c CALCULATE  # OF  SNR’S  IN  SDSNR  RANGE  * DO  CALCULATIONS 
C 

SNRMX2— AVESNR+SDSNR/2 . 

SNRMN2-AVESNR— SDSNR/2 . 

100  IF  (K.LE.100)GO  TO  105 

IF  (ER(K) . LT . SNRMN2 .OR . ER(K) .GT.SNRMX2)  GO  TO  53 

SNRN02— SNRN02+ 1 

SVSNR2 ( SNRN02 , L I )=ER(K ) 

IF  (LI .EQ. 1 . AND . SNRN02 . EQ . 1 .AND. IDC.EQ.  1 ) CALL  LIMIT(KC , KF ,M, 

. NT, N, KCC, KFF) 

CALL  BFMER (GTR , HP . M , NT , N . ERBFM , LI , SNRN02 , NMERWD , L , F . KC , KF , KCC , 
. KFF.IDC.H) 

IF  (ITR.EQ.1)  CALL  TRNC ER ( HP . HZ . M , NT . GTMAG , GTR , N , ERTRNC , 

» SNRN02.LI , NMERWD, F, H.L.KC.KF. KCC. KFF. DC, IDC) 

CALL  SMRSER(N,M,HP,G.K, LI . HZ,H .NMRES.OPTIT , SNRN02 .OPTER , L.GTR, 
C 

• F , NT , MRS , HN , NMERWD . CON , CONI , KC . KF . KCC , KFF , LG1 , LG2 , 1 SC , I DC ) 


53 

I F ( SNRN02 . LE . NMSNR ) NM2K—K 

IF  (SNRN02. LT. NMSNR) GO  TO  59 

IF  (SNRN02.E0. NMSNR) GO  TO  65 

54 

FORMAT ( I ) 

55 

FORMAT(8( 1PE16.8) ) 

57 

FORMAT (G) 

105 

ERR( LI , 2)-AVESNR 

ERR (LI ,5)«SDSNR 

9 

65 

C 

C68 

67 

60 


K-K+1 

IF  ( SNRN02 . LT . NMSNR ) GO  TO  60 
A00NS(LI)-NM2K 

c TYPE  68 

FORMAT (/////’  # OF  SNR  S COMPLETED  ’) 

TYPE  54. LI 

RETURN 

END 

c ENTER  DATA  k NUMBER  OF  POINTS  NT 


SUBROUT I NE  ENTERD ( GTYP .N.M.L.G.H.F.NT.SF.SFMIN, ANS , NMRES . 

. NMSNR . NMERWD . CON . CON 1 . 1 SC , I TR . I DC . OM I X , CM I X , SNRS . NMNSF . SC  LNS , 
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* NEX, I EX) 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DIMENSION  G(256) ,H(256) ,F(256) ,SNRS(30) 

INTEGER  GTYP.ANS 

1 FORMAT ( I ) 

TYPE  111 

111  FORMAT ( ’ ENTER  1-EXPAND  CONV.  0-OTHERWISE1) 

ACCEPT  1 , 1 EX 

IF  (IEX.EQ.0)  GO  TO  113 
TYPE  112 

112  FORMAT ( 1 ENTER  # OF  EXPANSIONS') 

ACCEPT  1 , NEX 

113  TYPE  2 

2 FORMAT ( 1 ENTER  1 FOR  NARROW  G — 2 FOR  WIDE  G ') 

ACCEPT  1.GTYP 

CALL  I NPUT (N,M,L,G,H,F, GTYP , SNRS , NMNSF , I EX , NEX ) 

TYPE  3 

3 FORMAT ( 1 ENTER  NUMBER  OF  POINTS  IN  G-INV-1  * PTS/2  TRANS  GiHP  ’) 
ACCEPT  1 ,NT 

TYPE  4 

4 FORMAT ( 1 ENTER  1 FOR  DECON.  2 FOR  NOISE  REMOVE  ALONE*) 

ACCEPT  1 . I DC 

TYPE  50 

50  FORMAT (‘  ENTER  1 FOR  ORD.  NOISE.  2-CONST,  3-MIX1) 

ACCEPT  1 .ANS 
IF  (ANS.NE.3)  GO  TO  80 
TYPE  5 

5 FORMAT ( 1 ENTER  FRACTION  OF  ORDINATE  NOISE  ?/?  ’) 

ACCEPT  20.KO.LO 

TYPE  6 

6 FORMAT (•  ENTER  FRACTION  OF  CONSTANT  NOISE  ?/?  ’) 

ACCEPT  20.KC.LC 

20  FORMAT ( I , X , I ) 

OMI X— FLOAT (KO)/FLOAT ( LO) 

CMI X-FLOAT ( KC)/FLOAT ( LC) 

TYPE  21 .OMIX.CMIX 

SCLNS— 1 ./SORT (OMI X»»2+CMIX*»2) 

TYPE  40 .SCLNS 

21  FORMAT (2G) 

80  TYPE  7 

7 FORMAT ("  ENTER  MAX  NUMBER  OF  RESTORATIONS  ’) 

ACCEPT  1.NMRES 

TYPE  8 

8 FORMAT ( 1 ENTER  NUMBER  OF  SNR  IN  +/“  -5SD  RANGE  ’) 

ACCEPT  1 . NMSNR 

TYPE  9 

9 FORMAT ( 1 ENTER  ERROR  WINDOW  SIZE  — L OR  M ’) 

ACCEPT  1 , NMERWD 

TYPE  11 

11  FORMAT ( 1 CHOOSE  CONVERGENCE  CRITERION  = (Ei— (Ei— 1 ) )/Ei— 1 ) ") 

ACCEPT  40. CON 
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TYPE  12 

12  FORMAT ( ’ CHOOSE  CONVERGENCE  CRITERION  « (Ei-(Ei-l))  ') 
ACCEPT  40, CONI 

TYPE  13 

13  FORMAT ( ’ ENTER  0 FOR  SIMUL. . 1 FOR  SUCC.  ') 

ACCEPT  1,1 SC 

TYPE  14 

14  FORMAT ('  ENTER  1 FOR  TRUNCATION,  0 FOR  NO  TRUNC.  *) 
ACCEPT  1 ,ITR 

40  FORMAT (G) 

RETURN 

END 

C 

C INPUT  ENTERS  THE  DATA 

C 

SUBROUTINE  INPUT(N,M, L ,G ,H. F.GTYP , SNRS . NMNSF , IEX.NEX) 
IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DIMENSION  H(256) ,G(256) ,F(256) ,SNRS(30) ,HH(256) 
INTEGER  IFL.GTYP 
TYPE  110 

110  FORMAT  (•  ENTER  SIZE  OF  H’) 

ACCEPT  120.M 
120  FORMAT ( I ) 

TYPE  130 

130  FORMAT ( ’ ENTER  SIZE  OF  G.OOD  ') 

ACCEPT  120.N 
TYPE  135 

135  FORMAT ( ’ ENTER  SIZE  OF  F ’) 

ACCEPT  120, L 
TYPE  140 

140  FORMAT ( ’ ENTER  THE  INPUT  FILE  § ' .$) 

ACCEPT  120. I FL 
TYPE  145 

145  FORMAT ( ’ ENTER  # OF  SNR"S  DESIRED  \$) 

ACCEPT  120, NMNSF 
TYPE  150 

150  FORMAT ( ’ ENTER  ENTER  INPUT  FILE  # FOR  SNR"S  DESIRED') 
ACCEPT  120.IFLN 

READ(IFLN, 160)(SNRS(I) , 1-1 .NMNSF) 

READ( IFL.160)(H(I), 1-1 ,M) 

R£AD( IFL,160)(G(I),I— 1.N) 

READ( IFL, 1 60) (F( I ) , I— 1 ,L) 

WRITE( « , 160) (SNRS( I ) , I— 1 .NMNSF) 

WRITE(*,160)(H(I), 1—1 ,M) 

WRITE(*,160)(G(I),I— 1,N) 

WRITE(*.160)(F(I),I— 1,L) 

0 FORMAT (4G) 


RETURN 

END 


c PREP.GT 

SUBROUTINE  PREPGT (GT , NT , N , G) 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DOUBLE  PRECISION  GT 
DIMENSION  GT(2050) ,G(256) 

DO  1 1—1  .N 
GT(2*I— 1 ) = G( I ) 

GT(2* I ) - 0.0 
DO  2 I-N+1 , NT 
GT(2»I— 1 )— 0.0 
GT(2* I )=0 . 0 
RETURN 
END 

c MAG.GT 

SUBROUTINE  MAGGT ( GT , NT , GTMAG ) 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DOUBLE  PRECISION  GT .GTMAG 
DIMENSION  GT ( 2050 ) . GTMAG ( 2050 ) 

DO  1 1-1  , NT 

GT(2* 1—1 )-DSQRT ( (GT(2* 1-1 ) »*2)+(GT(2* I )»*2) ) 
GT(2*I)— 0.0 
DO  2 1-1  . 2*NT 
GTMAG( I )-GT ( I ) 

RETURN 

ENO 

c 1 /TRANS.  GT 

SUBROUTINE  INVTRN(GT.NT) 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DOUBLE  PRECISION  GT 
DIMENSION  GT(2050) 

DO  10  1=1 .NT 

IF  (GT(2»I— 1 ) . EQ.0)GO  TO  5 
GT(2* 1—1 )— 1 ./GT(2*I— 1 ) 

GO  TO  10 
GT(2*I— 1 )»0. 

CONTINUE 

RETURN 

END 


SHIFT-GT 


SUBROUTINE  SHIFGT(GT.NT) 
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i 

5 

10 


C 

c 


5 


C 


10 


c 

c 


10 


20 


IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DOUBLE  PRECISION  GT.GTH 
DIMENSION  GT ( 2050 ) , GTH ( 1 024) 

DO  1 1-1  ,NT 
GTH(I)-GT(I) 

DO  5 1-1  .NT 
GT(I)— GT(NT+I) 

DO  10  1-1 .NT 
GT(NT+I)» GTH(I) 

RETURN 

ENO 

c NRMSMR 

SUBROUTINE  NRMSMR (GT, NT) 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DOUBLE  PRECISION  GT 
DIMENSION  GT(2050) 

DO  5 1-1 , 2*NT 
GT(I)-GT(I)/NT 

c MAKE  INV.  IMPULSE  RES.  SYMETRIC 

GT ( 1 )-GT ( 1 )/2 . 0 
GT(2*NT+1 )=GT(1 ) 

RETURN 

END 

c GT  REAL 

SUBROUTINE  GTREAL(GTR.GT.NT) 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DOUBLE  PRECISION  GT.GTR 
DIMENSION  GTR( 1025) ,GT(2050) 

DO  10  I-1.NT+1 
GTR( I )— GT(2* 1—1 ) 

CONTINUE 

RETURN 

ENO 


c PREP.HP 

SUBROUTINE  PREPHP(NT.M.DHP.DHPMG) 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DOUBLE  PRECISION  DHPMG 
DIMENSION  DHPMG ( 2050 ) . DHP ( 256 ) 

DO  10  1-1  ,M 
0HPMG(2*I-1)— OHP(I) 

DHPMG(2»  I )— 0 . 

DO  20  I— M+1 .NT 
DHPMG (2»  I— 1 )— 0 . 

DHPMG(2* I )=0 ■ 

RETURN 

ENO 

SUBROUTINE  EXPNH(H,M,N, IEX.NEX.HP.HZ.LI .K) 
IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 
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DIMENSION  HH(256) ,H(256) ,HP(256) ,HZ(512) ,HHP(256) ,HHZ(512) 
IF  (IEX.EQ.1 .AND.NEX.EQ.0)  GO  TO  170 
JJ-NEX*(N— 1)/2 

IF  (LI.EQ.1 .AND.K.EQ.1)  M1-M 
IF  (M.EQ.M1+2«JJ)  GO  TO  165 
0-(N-1)/2 
DO  161  1-1 .M 
HHP( I+J J )— HP( I ) 

HHZ( I+J J )— HZ( I+Q) 

161  HH( I+J J )— H( I ) 

DO  162  1-1 , JJ 
HP( I )— 0 . 

HZ( I )-0 . 

162  H( I )— 0 . 

DO  163  I— J J+1 , J J+M 
HP( I )— HHP( I ) 

HZ( I+Q)-HHZ( I ) 

163  H( I )— HH( I ) 

DO  164  I-JJ4M+1 ,M+2«JJ 
HP( I )— 0 . 

HZ( I+2*Q)— 0 • 

164  H( I )— 0 . 

DO  10  I-JJ+1 . JJ+(N-1 )/2 

10  HZ( I )— 0 . 

DO  11  I— J J+(N— 1 )/2+M+1 , J J+Mf(N— 1 ) 

11  HZ( I )— 0 . 

M-M+2*JJ 
GO  TO  170 

165  M=M-2*JJ 

DO  166  1-1 .M 

166  HH( I )— H( I+J J ) 

DO  167  1-1 .M 

167  H( I )— HH( I ) 

DO  12  1-1 , 2*<J  J+(N-1  )+M 

12  HZ( I )-0 . 

1 70  RETURN 

END 

C 

C FFT  SUBROUTINE 

C 

SUBROUT I NE  FFT ( DATA . NN , I S I GN ) 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DOUBLE  PRECISION  DATA , TEMPR . TEMPI , THETA, DSINTH , WR , WI ,WSTPR, 
• WSTPI 

DIMENSION  DATA (2050) 

INTEGER  N.NN.ISIGN 

N— 2«NN 

J-1 

DO  5 1-1 ,N, 2 
IF  (I.GE.J)  GOTO  2 


TEMPR-OATA(J) 

TEMPI— DATA (J+1 ) 

DATA(J)-DATA(I) 

OATA( J+1 )-OATA(I+1 ) 

DATA( I )— TEMPR 

DATA(I+1)-TEMPI 

k^N/2 

IF  (J.LE.M)  GO  TO  5 

J-J-M 

M-M/2 

IF  (M.GE.2)  GO  TO  3 

J-J+M 

MMAX-2 

IF  (MMAX.GE.N)  GO  TO  10 
ISTEP-2«MMAX 

THETA-6 . 283 1 853/FLOAT ( I S I GN«MMAX ) 

DS I NTH-OS I N ( THETA/2 . ) 

WSTPR— 2.  *OSINTH*OSINTH 
WSTPI-OSIN( THETA) 

WR-1  . 

WI-0. 

DO  9 fc*1 . MMAX , 2 
DO  8 I-M.N, ISTEP 
J-I+MMAX 

TEMPR— WR»DATA( J )— WI *DATA( J+1 ) 

TEMP I-WR*OATA( J+1 )+WI»0ATA(J) 

DATA ( J ) -OAT A ( I ) -T  EMPR 
DATA( J+1 )— DATA( 1+1 )-TEMPI 
DATA( I )— OATA( I )+TEMPR 
DATA( 1+1 )— OATA( 1+1 )+TEMPI 
TEMPR-WR 

WR-WR«WSTPR-WI .WSTPI+WR 
WI-WI »WSTPR+TEMPR  *WSTP I +W I 
MMAX- I STEP 
GO  TO  6 
RETURN 
END 

c CALCULATE  NSF'S  FOR  SNR'S  DESIRED  - FOR  BOTH  ORO.  * CONST.  NOISE 

SUBROUT I NE  SCFCTR (M , SNRS , SFO , SFC , MAX I M . S LPO . S LPC , NMNSF , H ) 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DIMENSION  SNRS(30) ,SFO(30) ,SFC(30) .H(256) 

REAL«8  MAXIM 
COMMON  LRAN 
MAXII^H(I) 

DO  10  1-2, M 

IF  (MAXIM. LT.H(I))  MAXIk^H(I) 

HLO-0. 

HLO0. 
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DO  20  J-1.1000 
HOLDO-0 . 

HOLDC-0 . 

DO  30  1-1  ,M 

A— 0 . 

DO  1 1 1-1 .12 
1 A-A+RAN ( LRAN ) 

HO  LDC-HOLDC+ ( A-6 ) * • 2 

30  HO IDO-HO  LDO+( (A-6) »SQRT(H( I ) ) ) **2 

HO  LDC-SQRT ( HO  LDC ) 

HOLDO-SQRT(HOLDO) 

HLC-HLC+(1/HO  LDC ) 

HLOHLO+(1/HOLDO) 

20  CONTINUE 

S LPO- ( SORT ( F LOAT ( M ) ) . MAX I M/ 1 000 . ) » H LO 
SLPC-( SORT ( FLOAT (M) ) .MAXIM/1 000 . ) *HLC 
DO  40  1-1 .NMNSF 
SFO( I )— (SLPO/SNRS( I ) )*«2 
SFC ( I )-( SLPC/SNRS ( I ) ) * *2 
40  CONTINUE 

RETURN 
END 
C 

c ADDS  BOTH  ORD.  * CONST.  NOISE 


C 

SUBROUTINE  BOTH(H , HP , HZ.SFO.SFC , SNR ,M, N ,OMIX , CMIX , LI .MAXIM, 

. SCLNS) 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DIMENSION  H(256) ,HP(256) .HZ(512) ,SFO(30) ,SFC(30) 

REAL*8  MAXIM 
INTEGER  Q 
CH(N-1)/2 
RMS-0. 

DO  230  1-1 ,M 

SD-SQRT ( SFC ( L I ) ) »CM I X • SCLNS 
CALL  GAUSS (SD,H(I) .HP (I)) 

SO— SORT (SFO( LI ) *H( I ) ) .OMIX.SCLNS 

IF  (H( I ).LT. 0.0000001)  SD-SQRT(SFO( LI). 0.0000001)* OMIX.SCLNS 
CALL  GAUSS(SD,HP(I),HP(I)) 

IF  ( HP ( I ) . LT . 0 ) HP(I)— HP(I) 

HZ( I+Q)— HP( I ) 

RMS— RMS+(HP ( I )-H( I ) ) * « 2 
230  CONTINUE 

RMS— SORT (RMS/M) 

IF  (RMS.EQ.0)  GO  TO  235 
SNR-MAX  I M/RMS 
235  RETURN 

END 

C ORDNOI  ADDS  ORDINATE  DEPENDENT  NOISE 

C 
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SUBROUTINE  ORDNOI (H.HZ .HP.SFO.RMS.SNR.M.N. LI .MAXIM) 
IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DIMENSION  H(256) ,HZ(256) ,HP(256) ,SFO(30) 

REAL*8  MAXIM 
INTEGER  Q.L 
Q-(N+1)/2 
RMS-0. 

DO  210  1=1 ,M 

SD  =SQRT ( SFO(LI)  • H(I)) 

I F(H(I) .LT. .0000001)  SD  -SQRT(  SFO(LI)  • .0000001) 
CALL  GAUSS(SD , H( I ) . HP( I ) ) 

IF  (HP( I ) . LT . 0 . ) HP(I)— HP(I) 

L-I+O-1 
HZ( L)— HP( I ) 

RMS— (HP(  I )— H(  I ) )*»2+RMS 
210  CONTINUE 

RMS-SQRT (RMS/ (M) ) 

IF  (RMS.EQ.0. ) GOTO  215 
SNR-MAX  I M/RMS 
215  RETURN 
END 
C 

C CONST  ADDS  CONSTANT  NOISE 

C 

SUBROUTINE  CONST (H.HZ, HP .SFC.RMS.SNR.M.N. LI .MAXIM) 
IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DIMENSION  H(256) ,HZ(512) .HP(256) ,SFC(30) 

REAL*8  MAXIM 
INTEGER  Q.L 
0— (N+1 )/2 
RMS-0 . 

DO  230  1-1 , M 
SD— SQRT(SFC(LI )) 

CALL  GAUSS(SD , H( I ) ,HP( I ) ) 

IF  ( HP  ( I ) . LT . 0 . ) HP(I)— HP(I) 

L-I+O-1 
HZ( L)» HP( I ) 

RMS— (HP( I )-H( I ) )**2+RMS 
230  CONTINUE 

RMS-SQRT (RMS/(M)) 

IF  (RMS.EQ.0.)  GO  TO  235 
SNR-MAX I M/RMS 
235  RETURN 

END 
C 

c GAUSS  COMPUTES  RANDOM  NUMBERS 

C 


SUBROUTINE  GAUSS (S, AM, V) 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

COMMON  LRAN 
A-0.0 

DO  1 1-1,12 
A»A+RAN(LRAN) 

V=(A— 6.0)*S  + AM 

RETURN 

END 

c OUTPUT 

SUBROUT  I NE  OUTPUT ( ERR , L I , NM2K , OPTI T . SNRN02 , SVSNR2 , GTYP . ANS . 

. ADDNS , OPT  ER , ER8  FM , ERTRNC , LG 1 , LG2 , DC . I TR , I SC . I DC . SNRS , OM I X , 

. CMIX,SFO.SFC,SLPO,SLPC, CON. CONI ,NEX, IEX) 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DIMENSION  ERR (30 ,5) ,SVSNR2(100,30) ,MXIT(30,2) ,MNTR(30.2) . 

» AVSNR2(30) .ADDNS (30) ,MXSNR(30) ,MNSNR(30) ,SDITNM(30,2) . 

* OPTER( 100,30 ,2) , ERBFM( 100,30,2) ,AVERNM(30.2) . SDERNM(30,2) . 

* OPTIT(100,30,2) ,AVITNM(30,2) ,MNIT(30.2) ,MXER(30,2) ,MXTR(30,2) , 

. MNER(30 , 2) , ERTRNC ( 1 00,30,2) , AVTRER(30 , 2) , SDTRER(30 ,2) , 

« SDMXTR(30,2) ,SDMNTR(30,2) ,SDMXIT(30,2) ,SDMNIT(30.2) ,SDER(30,2) 

* SDMXER(30 ,2) ,SDMNER(30,2) ,SAVSNR(30) ,AVER(30,2) ,AVTR(30,2) 
DIMENSION  SDTR(30,2) ,MNR(30,2) ,MXR(30.2) ,MNT(30,2) ,MXT(30,2) . 

. DC(100,30) , AVDC ( 30 ) ,SDDC(30) ,MXDC(30) ,MNDC(30) ,NNG(30) ,NPS(30) 

. SNRS(30) ,SFO(30) ,SFC(30) 

I NTEGER  SNRN02 , GTYP , ANS , LG 1 ( 30 . 3 ) . LG2 ( 30 . 3 ) 

REAL* 8 MXSNR , MNSNR . MXER, MNER . MX I T . MN I T . MNTR , MXTR , MNR , MXR , 

* MNT , MXT , MNDC , MXDC 

IF  (ISC.EQ.0)  WRITE(35 , 31 ) 

IF  (ISC.EQ.1)  WRITE(35,32) 

FORMAT (//’  POINT  SIMULTANEOUS  ’) 

FORMAT (// ’ POINT  SUCCESSIVE  ') 

IF  (ITR.EQ.0)  WRITE(35 ,131) 

IF  (ITR.EQ.1)  WRITE(35, 132) 

IF  (I0C.EQ.1)  WRITE(35,33) 

IF  (IDC.EQ.2)  WRITE(35.34) 

I F ( I EX . EQ . 1 )WRITE(35 , 300) 

FORMAT (/ ’ EXPANDING  RESTORATION.  § OF  EXPANSIONS-1  = ’) 

IF(IEX.EQ.I)  WRITE(35.70)NEX 
FORMAT (/'  NO  TRUNCATION’) 

FORMAT (/’  TRUNCATION’) 

FORMAT (/ ’ DECONVOLUTION ’ ) 

FORMAT (/ ’ NOISE  REMOVAL  ALONE’) 
c WRITE(30, 10) 

WRITE(35 , 10) 

c WRITE(36, 10) 

FORMAT (/’  G - TYPE  ’/) 
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c WRITE(30,70)GTYP 

WRITE(35,70)GTYP 

c WRITE(36,70)GTYP 

c WRITE(30, 12) 

WRITE(35, 12) 

c WRITE(36, 12) 

12  FORMAT (/ ' NOISE  - TYPE  ’/) 

c WRITE(30,70)ANS 

WRITE(35 , 70)ANS 

c WRITE(36,70)ANS 

WRITE(35 , 301 ) 

301  FORMAT (/ ’ FRACTIONAL  DIFFERENCE  CRITERION  -’ .$) 

WRITE(35 , 60)CON 

WRITE(35,302) 

302  FORMAT (/’  ABSOLUTE  DIFFERENCE  CRITERION  ,$) 

WRITE(35 , 60)CON1 

WRITE(35 , 1 4) 

14  FORMAT (///’  USING  100  NOISE  ADDITIONS  '///) 

WRITE(35 ,2) 

2 FORMAT (// 1 8X , ’THEO.  SNR ’ , 8X , ’ AVESNR ’ , 1 0X , ’ SDSNR  ’//) 

WRITE(35.38)(SNRS(I),ERR(I ,2).ERR(I .5) .1-1 ,LI) 

37 

FORMAT(13X. 1PE16.8.4E16.8/) 

38  FORMAT ( 1 3X , 1PE1 6.8, 2E1 6 . 8/) 

39  FORMAT ( 1 3X , 1 PEI  6 . 8 . 3E1 6 . 8/) 

40  FORMAT ( 1 3X , 1 PEI  6 . 8 ,7E1 6 . 8/) 

c WRITE(45. 60) (ERR( I , 1 ) . 1-1 . LI ) 

c WRITE(46,60) (ERR( I .2) . 1-1 , LI ) 

WRITE(35,42) 

42  FORMAT (///’  TOTAL  # OF  SNR  IN  RANGE  '//) 

WRITE(35 , 70)SNRNO2 
C 

c CALC.  NEW  AVERAGE  USING  SNR  IN  GIVEN  RANGE  AND  AVE  ITERATION  # 
c CALC.  ERROR  BEFORE  MOR.  / ERROR  AFTER  MOR . 

C 

DO  50  1-1 . LI 

C 

c PRINT  ERROR  AFTER  MORRIS,  BEFORE  MORRIS,  It  TRUNC.  ONLY 
C 

c WRITE(36,51 ) 

C51  FORMAT(//'  ERROR  AFTER  MORRIS.  ’ /) 

c WRITE(36,70)I 

c WRITE(36.40)(OPTER(J,I ,1).J-1 .SNRN02) 

c WRITE(36,70) I 

c WRITE(36.40) (OPTER( J ,1,2). J— 1 . SNRN02) 

c WRITE(36,20) 

C20  FORMAT (//'  ERROR  BEFORE  MORRIS  */) 

c WRITE(36,70) I 

c WR I TE( 36 , 40 ) ( ERBFM( J . I , 1 ) . J- 1 . SNRN02 ) 

c WRITE(36.70)I 


c 


WRITE(36,40) (ERBFM(J , 1 ,2)  , J**1 , SNRN02 ) 


c CALCULATION  OF  ACTUAL  TRUNC.  ERROR 

IF  (ITR.EQ.0)  GO  TO  157 

c WRITE(36,21) 

FORMAT (//’  ERROR  TRUNC.  ONLY’/) 
c WRITE(36,70) I 

c WRITE(36.40)(ERTRNC(J .1.1), J-1 , SNRN02 ) 

c WRITE(36,70) I 

c WRITE(36,40)(ERTRNC( J . I ,2) . J-1 .SNRN02) 

AVDC(I)-0. 

AVTR(I,1)=0. 

AVTR(I  ,2)=*0. 

SDDC(I)-0. 

SDTR(I.1)-0. 

SDTR( I , 2)=0. 

DO  80  J-1.SNRN02 
AV0C( I )-AVDC( I )+OC( J , I ) 

AVTR( I , 1 )-AVTR( I . 1 )+ERTRNC( J , 1.1) 

AVTR (1.2) -AVTR (1.2) +ERTRNC (J . I .2) 

CONTINUE 

AVDC( I )=AVDC( I )/SNRN02 
AVTR( I . 1 )«AVTR( I , 1 )/SNRN02 
AVTR ( I , 2 ) -AVTR ( I . 2 ) /SNRN02 
00  81  J-1.SNRN02 
O-OC ( J , I)-AVDC(I) 

DTI— ERTRNC( J ,1.1 )— AVTR( 1,1) 

DT2-ERTRNC(J , I ,2)-AVTR(I .2) 

SDDC(I)«SD0C(I)+D**2 
S0TR( I . 1 )-SDTR( I . 1 )+0T1 *»2 
SDTR(I ,2)«SDTR(I ,2)+DT2*«2 
CONTINUE 

SDDC( I )-SDDC( I )/SNRN02 
SDTR( I . 1 )»SDTR( I , 1 )/SNRN02 
SDTR(I ,2)-SDTR(I ,2)/SNRN02 
SDDC ( I ) -SORT ( SDDC ( I ) ) 

SDTR(  I , 1 )=>»SQRT(SDTR(  1.1)) 

SDTR(I ,2)-SQRT(SDTR(I ,2)) 

MNDC(I)-0C(1 . I) 

MX0C(I)»DC(1 , I) 

MNT(I.1)-ERTRNC(1 ,1.1) 

MXT(I.1)-ERTRNC(1.I.1) 

MNT(I.2)-ERTRNC(1.I.2) 

MXT(I ,2)-ERTRNC(1 .1.2) 

DO  83  K=2 . SNRN02 

IF  (DC(K.I).GE. MXDC ( I ) ) MXOC( I )*OC(K , I ) 

IF  (DC(K.I).LE.MNDC(I))  MNOC( I )»OC(K . I ) 

IF  ( ERTRNC(K , I . 1 ) . GE . MXT (1,1))  MXT (1,1 )=ERTRNC(K . 1,1) 
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IF  (ERTRNC(K, 1,1). LE.MNT(I , 1 ))  MNT(I , 1 )=ERTRNC(K, I . 1 ) 
IF  ( ERTRNC ( K , I , 2 ) . GE . MXT (1,2))  MXT(I ,2)«ERTRNC(K, I .2) 
IF  ( ERTRNC (K, 1,2). LE.MNT(I ,2))  MNT(I ,2)«ERTRNC(K, I .2) 
83  CONTINUE 

C 

c CALCULATE  NUMBER  OF  DC  POS.  * NEG. 


C 

NNG(I)«0 
NPS( I )=0 

DO  156  J“1 , SNRN02 
IF  (DC( J , I ) . LT . 0)  NNG(I)-NNG(I)+1 
IF  (DC(J, I) .GE.0)  NPS(I)-NPS(I)+1 
156  CONTINUE 

AVTRER(I,1)«0. 

AVTRER(I,2)«0. 

DO  84  J-1.SNRN02 

ERTRNC (J ,1,1 ) “ERTRNC (J .1.1 )/ERBFM( J .1,1) 

ERTRNC ( J , I . 2 )-ERTRNC ( J , I . 2 )/ERBFM( J .1,2) 

AVTRER( I , 1 )*AVTRER( I . 1 )+ERTRNC( J . 1,1) 

AVTRER ( I , 2 ) -AVTR ER ( I . 2 ) +ERTRNC ( J , I . 2 ) 

84  CONTINUE 

c WRITE(36,22) 

C22  FORMAT (//’  ERROR  TRUNC.  ONLY  / ERROR  BEFORE  MORRIS.1/) 

c WRITE(36,70) I 

c WRITE(36.40)(ERTRNC( J , 1,1) , J=1 , SNRN02 ) 

c WRITE(36,70)I 

c WRITE(36.40)(ERTRNC(J,I .2) , J-1 , SNRN02 ) 

C 

AVTRER ( I . 1 )-AVTRER( I , 1 )/SNRN02 
AVTRER(I ,2)-AVTRER(I ,2)/SNRN02 
C 

c CALC.  SD  OF  AVERAGE  ITERATION  NUMBER  k SD  OF  ERROR 
C 

SDTRER( I , 1 )“0 . 

SOTRER(I ,2)-0. 

DO  85  J-1.SNRN02 

OFF 1— ERTRNC (J ,1.1 )— AVTRER( 1.1) 

0FF2-ERTRNC(J , I . 2)-AVTRER( I , 2) 

SDTRER( I , 1 )*SDTRER( 1 , 1 )+OFF1  ..2 
SDTRER(I ,2)-SDTRER(I ,2)+OFF2**2 

85  CONTINUE 

SDTRER( I , 1 )=SDTRER( I , 1 )/SNRN02 
SDTRER( I ,2)-SDTRER( I ,2)/SNRN02 
SDTRER( I . 1 )-SQRT(SDTRER( I , 1 ) ) 

SDTRER( I , 2)“SQRT(SDTRER( I .2) ) 

MNTR( I , 1 )“ERTRNC( 1,1,1) 

MXTR( I , 1 )“ERTRNC( 1,1,1) 

MNTR(I,2)-ERTRNC(1 .1.2) 

MXTR( I ,2)“ERTRNC( 1,1,2) 

DO  86  K-2.SNRN02 

IF  (ERTRNC(K.I.I).GE.MXTR(I.I))  MXTR( I . 1 )-ERTRNC(K , I , 1 ) 
IF  (ERTRNC(K.I.I).LE.MNTR(I.I))  MNTR( I , 1 )»ERTRNC(K , 1,1) 
L 
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IF  (ERTRNC(K,I,2).GE.MXTR(I,2))  MXTR(I , 2)*ERTRNC(K . I ,2) 
IF  (ERTRNC(K, I ,2) ,LE.MNTR(I ,2))  MNTR(I ,2)-ERTRNC(K, I ,2) 
86  CONTINUE 

C 
C 

c CALCULATION  OF  ACTUAL  ERROR 


C 

157  AVER (I , 1 )*0. 

AVER(I,2)-0. 

SDER(I.1)-0. 

SDER(I.2)-0. 

DO  147  J-1.SNRN02 

AVER( I . 1 )-AVER( I . 1 )+OPTER( J ,1.1) 

AVER(I ,2)«AVER(I ,2)+OPTER(J .1,2) 

147  CONTINUE 

AVER( I , 1 )-AVER( I , 1 )/SNRN02 
AVER ( I . 2 )-AVER ( I , 2 )/SNRN02 
DO  145  J-1.SNRN02 
D1=OPTER( J , I , 1 )— AVER( 1.1) 

D2-OPTER ( J , I ,2)-AVER( I .2) 

SDER( I . 1 )»SDER( I . 1 )+D1**2 
SDER(I.2)-S0ER(I.2)+02**2 
145  CONTINUE 

SDER( I . 1 )-SDER( I . 1 )/SNRN02 
SDER( I , 2)*SDER( I , 2)/SNRN02 
SDER(I.1)-SQRT(SDER(I.1)) 

SDER ( I . 2 )-SQRT ( SDER (1.2)) 

C 

MNR(I,1)-OPTER(1 ,1.1) 

MXR(I,1)-0PTER(1 .1.1) 

MNR(I.2)-OPTER(1,I,2) 

MXR(I,2)-OPTER(1 .1,2) 

C 

DO  155  K-2.SNRN02 

IF  (OPTER(K.I.I).GE.MXR(I.I))  MXR( I . 1 )«*OPTER(K , 1,1) 
IF  (OPTER(K ,1,1). LE.MNR( 1,1))  MNR( I , 1 )-OPTER(K , I , 1 ) 
IF  (OPTER(K, I ,2) .GE.MXR(I ,2))  MXR(I ,2)-OPTER(K, I ,2) 
IF  (OPTER(K , I , 2) . LE . MNR( 1.2))  MNR(I ,2)=OPTER(K, I ,2) 
155  CONTINUE 

AVSNR2(I)-0. 

AVITNM(I,1)-0. 

AVITNM(I ,2)*0. 

AVERNM( I , 1 )-0 . 

AVERNM(I ,2)-0. 

DO  47  J-1 , SNRN02 

OPTER( J ,1.1 )-(OPTER( J . I . 1 )/ERBFM( J .1,1)) 

OPTER( J , I ,2)»(OPTER( J , I ,2)/ERBFM( J ,1,2)) 

AVSNR2 ( I )-AVSNR2( I )+SVSNR2(4 . I ) 
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AVITNM( I , 1 )«AVITNM( I , 1 )+OPTIT( J .1.1) 

AVITNM( I , 2)“AVITNM( I , 2)+0PTIT( J ,1.2) 

AVERNM( I , 1 )«AVERNM( I , 1 )+OPTER( J .1.1) 

AVERNM( I . 2)»AVERNM( I , 2)+0PTER( J ,1.2) 

47  CONTINUE 

C 

AVSNR2( I )-AVSNR2( I )/SNRN02 
AVITNM( I , 1 )-AVITNM(I . 1 )/SNRN02 
AVITNM(I ,2)»AVITNM(I ,2)/SNRN02 
AVERNM( I , 1 )=AVERNM( I . 1 )/SNRN02 
AVERNM( I ,2)«AVERNM( I ,2)/SNRN02 
C 

c CALC.  SO  OF  AVERAGE  ITERATION  NUMBER  Is  SO  OF  ERROR 


SDITNM(I,1)=0. 

SOITNM(I ,2)«0. 

SDERNM(I.1)-0. 

SDERNM(I ,2)«0. 

DO  45  J-1.SNRN02 
DIF1-OPTIT( J .1.1 )-AVITNM(I . 1 ) 
DIF2-OPTIT(J . I ,2)— AVITNM( I ,2) 
DF1=OPTER( J , I , 1 )— AVERNM( 1.1) 

0F2-0PTER( J . I , 2)— AVERNM( I .2) 

SDERNM( I . 1 )-SDERNM( I . 1 )+OF1 *«2 
SDERNMO ,2)*SDERNM(I ,2)+DF2**2 
SDITNM( I . 1 )-SDITNM(I . 1)+DIF1»*2 
SDITNM(I ,2)-SDITNM(I ,2)+DIF2«»2 
45  CONTINUE 

SO  I TNM( I , 1 )-SD I TNM( I . 1 )/SNRN02 
SDITNM( I ,2)=SDITNM( I ,2)/SNRN02 
SOERNM( I , 1 )«SDERNM( I . 1 )/SNRN02 
SDERNM(I ,2)«SDERNM(I ,2)/SNRN02 
SDERNM( I . 1 )-SQRT(SDERNM( 1,1)) 
SDERNM(I.2)-SQRT(SDERNM(I.2)) 

SOITNM( I . 1 )«SQRT(SDITNM( 1.1)) 

SO  I TNM( 1 . 2) “SORT ( SD I TNM( 1 . 2) ) 

C 

c OUTPUT  AVESNR  Is  SNR’S  IN  +/“  RANGE 


C 

c WRITE(30,210) 

C210  FORMAT (///’  AVESNR  FOR  SNRN02  ’//) 

c WRITE(30,40)AVSNR2(I) 

c WRITE(30,46) 

C46  FORMAT (///’  SNR  S IM  +/-  -5SD  RANGE  '//) 

c WRITE(30.40)(SVSNR2(K, I) ,K-1 , SNRN02) 

C 

c CALC.  MAX  * MIN  OF  SNRN02  SNR’S,  OPTIT’S  k OPTER’S  IN  RANGE 


C 


MXSNR(  I )**SVSNR2(  1 , 1) 
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MNSNR ( I )*SVSNR2 (1.1) 

MX  I T ( 1 , 1 )*OPTIT(  1 ,1,1) 

MNIT(I,1)«0PTIT(1,I.1) 

MXIT(I.2)-0PTIT(1  ,1.2) 

MNIT(  1 , 2)*0PTIT(1  .1,2) 

MXER(I.1)-0PTER(1.I.1) 

MNER(I.1)-0PTER(1.I,1) 

MXER(1 . 2)*0PTER(1  ,1,2) 

MNER( I , 2)*0PTER(1 ,1,2) 

DO  55  K*2,SNRN02 

IF  (SVSNR2(K, I) .GE.MXSNR(I))MXSNR(I)«SVSNR2(K, I) 

IF  ( SVSNR2 ( K . I ) . LE . MNSNR ( I ) ) MNSNR ( I ) -SVSNR2 ( K , I ) 

IF  (0PTIT(K, I , 1 ) .GE.MXIT( I , 1 ) ) MXIT(I . 1 )“0PTIT(K, 1,1) 

IF  (OPTIT(K.I.I).LE.MNIT(I.I))  MNIT(1 , 1)-0PTIT(K, 1 , 1 ) 

IF  (OPT IT (K. I,2).GE.MXIT(I,2))  MXIT( 1 ,2)-0PTIT(K , I , 2) 

IF  (OPTIT(K ,I,2).LE.MNIT(I,2))  MNIT(I ,2)=0PTIT(K, I ,2) 

IF  (OPTER(K.I.I).GE.MXER(I.I))  MXER( I , 1 )*OPTER(K ,1,1) 

IF  (OPTER(K , 1,1). LE .MNER( 1.1))  MNER( I , 1 )«OPTER(K .1.1) 

IF  (OPTER(K, I ,2) .GE.MXER(I .2))  MXER(I ,2)*0PTER(K, I .2) 

IF  (OPTER(K .1,2). LE.MNER( 1,2))  MNER(I ,2)=0PTER(K. I ,2) 

55  CONTINUE 

50  CONTINUE 

C 
C 
C 

WRITE(35 , 72) 

72  FORMAT (///'  NUMBER  OF  AVERAGE  SNR"S  ’//) 

WRITE(35 , 70) LI 
WRITE(35,270) 

270  FORMAT (4X,‘  THEO.  ORD.  SLOPE ‘ , 4X , ’ THEO . CON.  SLOPE ’.6X, 

. ’OMIX ’ , 1 2X , ’CMIX  *//) 

WRITE(35.139)SLP0,SLPC,0MIX,CMIX 

139  FORMAT(4X.1PE16.8.4X,3(1PE16.8)) 

WRITE(35 , 271 ) 

271  FORMAT (///6X. ’ORD.  NSF \ 6X CONST . NSF’//) 

WRITE(35.272)(SF0(I) ,SFC(I),I-1 .LI) 

272  FORMAT (2( 1 PEI  6.8)) 

WRITE(35 , 79) 

77  FORMAT (///’  NEW  AVE  USING  SNR  IN  +/--5S0  RANGE  ’//) 

WRITE(35,79) 

WRITE(35 , 87) 

87  FORMAT (/1 8X, 'THEO.  SNR ’ , 8X , ’ AVSNR2 ’ . 1 1 X , ’ MAXSNR ’ , 1 1 X , ’ MI NSNR ’ , 

« 1 1 X . ’#  NS  ADD’//) 

WRITE(35 . 37) (SNRS( I ) , AVSNR2( I ) ,MXSNR( I ) , MNSNR ( I ) . 

• ADDNS(I) . 1*1 .LI) 

WRITE(35 , 79) 

79  FORMAT ( ’ 1 ’ ) 

WRITE(35 . 74) 

FORMAT (///’  OPT.  ITER.  # - SD  - MAX  it  MIN  - FOR  # OF  SNR  ’//) 


74 
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WRITE(35.75) 

75  FORMAT (/I 8X , ’ AVSNR2 ’ ,8X, ’ ITERATION1# ’ ,7X, ’ IT1SD’ ,7X, 

* ' ITERATION2# ' , 6X , ’ IT2SD ’//) 

WRITE(35,37) (AVSNR2( I ) , AVITNM( 1,1) ,SDITNM( 1,1) ,AVITNM( 1,2), 

* SDITNM(I,2).I=1 ,LI) 

WRITE(35,79) 

WRITE(35, 165) 

165  FORMAT (///I 8X,'AVE  ITER  #1  ' [B.5X, 'MIN  ITER#1 ’ . 6X. 'MAX  ITER#1 ' , 

. 5X.-AVE  ITER  #2\5X,’MIN  I TER#2 ’ , 6X . ' MAX  ITER#2'//) 

WRITE(35 , 177) (AVITNM( I , 1 ) ,MNIT(I , 1 ) ,MXIT(I , 1 ) , AVITNM( 1,2). 

. MNIT(I .2) ,MXIT(I .2) , 1-1 .LI) 

WRITE (35, 79) 

WRITE(35 , 76) 

76  FORMAT (///’  ERROR  1 4 2 AT  OPTIMUM  ITERATION  '//) 

WRITE(35 . 1 76) 

176  FORMAT (/ 1 8X, •AVSNR2' ,1  OX. ‘ERROR  # 1 ' . 8X , ' SD  ERR1‘,8X, 

* ‘ERROR  #2‘,8X.‘SD  ERR2 ‘//) 

WRITE (35, 37) (AVSNR2( I ) , AVERNM( I , 1 ) , SDERNM( I , 1 ) ,AVERNM( 1,2) . 

« SDERNM( 1,2), 1=1 , LI ) 

WRITE (35, 79) 

WRITE(35, 178) 

178  FORMAT (///I 8X. ‘ERROR  #1’,7X,'MIN  ERR1 ’ ,8X, ‘MAX  ERR1',8X, 

. 'ERROR  #2'.7X.'MIN  ERR2 ’ , 8X , ’ MAX  ERR2’//) 

WRITE (35 . 1 77) (AVERNM( 1,1) . MNER( I , 1 ) ,MXER( 1.1) , AVERNM( 1.2). 

. MNER(I ,2) ,MXER(I ,2) , 1-1 , LI ) 

177  FORMAT ( 13X , 1PE1 6.8 ,5E1 6 .8/) 

WRITE(35 .79) 

WRITE(35 ,190) 

190  FORMAT (///I 8X, ‘AVSNR2’ ,8X, ‘AVER  #1 ‘ ,9X, 'SDER  #1 ’ ,8X, ‘ AVER  #2', 

. 8X, ‘SDER  #2‘//) 

WRITE(35 , 37) (AVSNR2( I ) ,AVER( 1.1) ,SOER( 1,1) ,AVER(I .2) .SDER (I ,2) . 

* 1=1. LI) 

WRITE(35 . 79) 

WRITE(35, 192) 

192  FORMAT (///I 8X , ‘MIN  ERR1 ’ , 7X , ’MAX  ERR1 ’ ,8X, ‘MIN  ERR2’,8X, 

. ‘MAX  ERR2 ’//) 

WRITE (35, 39) (MNR( 1,1) ,MXR( 1,1) ,MNR( 1,2) ,MXR( I, 2), 1=1, LI) 
WRITE(35,79) 

WRITE(35, 197) 

197  FORMAT (/// 1 X, ‘#  OF  TIMES  CON.  CRITERION  ARE  MET ; CON=FRAC . DIF. 

* - C0N1-ABS.  OIF.  ') 

WRITE(35, 198) 

198  FORMAT (///1 8X , ‘ AVSNR2 ‘ , 10X, 'LI-CON' ,4X, 'L1-C0N1 ’ ,3X, ’ LI  BOTH’ . 

* 4X , ' L2-C0N ’ , 4X , ' L2-C0N1 ’ , 3X , ‘ L2B0TH ’//) 

WRITE(35 , 200) (AVSNR2( I ) , LG1 (1,1), LG1 (1.2), LG1 (1,3), LG2( I . 1 ) . 

. LG2( I ,2) , LG2( I ,3) , 1=1 , LI ) 

200  FORMAT (1PE16.8.6I10) 

C 

C 
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180 


182 


194 


196 


201 


202 

203 

C 

C 


205 

C 

C 


IF  (ITR.EQ.0)  GO  TO  205 
WRITE(35, 180) 

FORMAT (///7X , ,AVSNR2' .8X, ’ AVTRERfl ' ,9X, ’SDTRER1  ’ ,8X, 

. 1 AVTRER#2  * . 8X . * SDTRER2 * // ) 

WRITE(35,37)(AVSNR2(I) ,AVTRER(I ,1) ,SDTRER(I ,1) ,AVTRER(I ,2) . 

. SDTRER( I .2) . 1=1 , LI ) 

WRITE(35, 182) 

FORMAT  (///6X , 'AVTRERjjll  ’ ,7X,  ’MIN  ERR1  ’ ,8X.  ‘MAX  ERR1’,8X, 

. •AVTRER#2’ ,7X. ’MIN  ERR2 ’ , 8X , ’ MAX  ERR2’//) 

WRITE(35 , 1 77) (AVTRER( I , 1 ) , MNTR ( 1.1) ,MXTR(I , 1 ) ,AVTRER( I ,2) , 

. MNTR (I .2) ,MXTR( I .2) . 1*1 ,LI) 

WRITE(35, 194) 

FORMAT (// /7X . 1 AVSNR2  ’ . 8X . ' AVTR  # 1 * . 9X , ’ SDTR  #1  ’ , 8X , ’ AVTR  §2 ' , 
. 8X. ’SDTR  #2’//) 

WRITE(35,37)(AVSNR2(I) ,AVTR(1 , 1 ) .SDTR (1 , 1 ) ,AVTR(1 ,2) ,SDTR(1 ,2) . 

• 1-1, LI) 

WRITE(35 . 1 96) 

FORMAT(///6X. 'MIN  ERR1 ’ ,7X, 'MAX  ERR1 ’ ,8X, ’MIN  ERR2’,8X, 

• 'MAX  ERR2 '//) 

WRITE(35.39)(MNT(I . 1 ) ,MXT(I . 1 ) ,MNT(I .2) ,MXT(1 ,2)  . 1-1  .LI) 
WRITE(35.201 ) 

FORMAT (///7X . 1 AVSNR2 ’ , 1 0X . 1 AVDC ’ . 1 2X . ’ SDDC ’ , 1 2X . ’ MNDC ’ , 1 2X , 

. 1 MXDC '//) 

WRITE(35 . 37) (AVSNR2( I ) , AVDC( I ) . SDDC ( I ) ,MNDC( I ) ,MXDC( I ) . 1-1 . LI ) 
WRITE(35 , 202) 

FORMAT (///7X, ’AVSNR2’ .15X, ’POS.  DC' ,8X, 'NEG.  DC’//) 

WRITE(35 . 203) (AVSNR2( I ) ,NPS( I ) , NNG( I ) , 1-1 .LI) 

FORMAT (1PE16.8.2I16) 

CLOSE(UNIT=35) 

DO  88  1-1 , LI 

SDMXTR( I . 1 )-AVTRER( I . 1 )+SDTRER( 1.1) 

SDMXTR( I . 2)— AVTRER( I , 2)+SDTRER( 1,2) 

S0MNTR( I , 1 )— AVTRER( I . 1 )-SDTRER( 1.1) 

SDMNTR( I , 2)=AVTRER( I ,2)-SDTRER( I .2) 

88  CONTINUE 

WRITE(48 .61 ) (MNSNR( I ) , AVTRER( I , 1 ) , 1-1 . LI ) 

WRITE(49,61 )(MNSNR(I) ,AVTRER(I .2) . 1-1 .LI) 

WRITE(50, 61 ) (MXSNR( I ) , AVTRER( I . 1 ) . 1-1 . LI ) 

WRITE(51 , 61 ) (MXSNR( I ) ,AVTRER( 1,2), 1-1 .LI) 

CLOSE(UNIT— 35) 

c CALCULATE  ITT  § k ERROR  (+  k -)  SD 


DO  90  1-1 , LI 

SDMX I T ( I . 1 )— AVITNM( I . 1 )+SDITNM( 1.1) 
SDMXIT( I ,2)*AVITNM( I ,2)+SDITNM( I ,2) 
SDMN I T ( I . 1 )— AVITNM(  I . 1 )-S0ITNM(  1.1) 
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SDMNIT(I.2)-AVITNM(I,2)-SDITNM(I,2) 

SDMXER( I . 1 )-AVERNM( I , 1 )+SDERNM( 1.1) 

SDMXER( I . 2)-AVERNM( I , 2)+S0ERNM( I , 2) 

SDMNER (1.1 )-AVERNM( I , 1 )-SDERNM( 1.1) 

SDMNER( I ,2)-AVERNM( I ,2)-SDERNM(I ,2) 

90  CONTINUE 

C 

c PLOT  OF  ITERATION  # k ERROR  VS  SNR,  MAX  k MIN  OF  SNR 


C 

WRITE(40 , 61 ) (MNSNR( I ) ,AVERNM( I , 1 ) . 1-1 , LI ) 

WRITE(41 .61 )(MNSNR(I) ,AVERNM(I .2) .1-1 ,LI) 

WRITE(42, 61 ) (MXSNR( I ) , AVERNM( I , 1 ) . 1-1 . LI ) 

WRITE (43 , 61 ) (MXSNR( I ) ,AVERNM(I ,2) . 1-1 . LI ) 

WRITE(44. 61 ) (MNSNR( I ) , AVITNM( I , 1 ) , 1-1 , LI ) 

WRITE(45 , 61 ) (MNSNR( I ) , AVITNM(I .2) , I— 1 . LI ) 

WR ITE(46 , 61 ) (MXSNR( I ) , AVITNM( 1,1), 1—1 .LI) 

WRITE(47 , 61 ) (MXSNR( I ) , AVITNM( 1.2) .1-1 . LI ) 

C 

C 

c PLOT  AVERAGE  ITT#  VS  LN(AVSNR2)  k ITT  SD’S  k LN(MX-MN  SNR) 


C 


95 

C 

C 

C 


C 

c 


00  95  1-1 .LI 
SAVSNR( I )*AVSNR2( I ) 

AVSNR2 ( I )— 0 L0G(AVSNR2( I ) ) 
MXSNR  ( I ) -0  LOG  ( MXSNR  ( I ) ) 
MNSNR( I )-DLOG(MNSNR( I ) ) 
CONTINUE 


IF  (ITR.EQ.0)  GO  TO  206 

WRITE(48 .61 ) (MNSNR( I ) , AVTRER( I ,1) .1-1  , LI) 
WRITE(49 . 61 ) (MNSNR( I ) . AVTRER( I . 2) . 1-1 .LI) 
WRITE(50 , 61 ) (MXSNR( I ) , AVTRER( 1,1), 1—1 .LI) 
WRITE(51 , 61 ) (MXSNR( I ) , AVTRER( 1.2), 1—1 .LI) 
CLOSE (UN  IT— 48) 

CLOSE (UN IT-49) 

CL0SE( UN IT-50) 

CLOSE (UN IT-51 ) 


c PLOT  OF  ITERATION  #,  k ERROR  VS  SNR 


C 


C 


WRITE(54. 61 ) ( SAVSNR ( I ) , AVTRER( I . 1 ) . 1-1 . LI ) 

WRITE(55 , 61 ) (SAVSNR( I ) , AVTRER( 1,2), 1—1 , LI ) 

c PLOT  AVERAGE  ERROR  k ITERATION  VS.  LN(SNR) 

WRITE( 17,61) (AVSNR2( I ) ,AVTRER( 1.1), 1—1 .LI) 

WRITE( 18 . 61 ) (AVSNR2( I ) , AVTRER( I .2) . 1-1 . LI ) 


CL0SE(UNIT-54) 

CLOSE (UN IT-55) 

WRITE(26 . 61 ) (AVSNR2( I ) . SDMXTR( I , 1 ) , 1-1 , LI ) 
WRITE(27 , 61 ) (AVSNR2( I ) ,SDMXTR( I ,2) , 1=1 ,LI) 
WRITE(28 ,61 ) (AVSNR2( I ) ,SDMNTR( 1,1). 1=1 ,LI) 
WRITE(29 . 61 ) (AVSNR2( I ) ,SOMNTR( I , 2) , 1=1 , LI ) 
WRITE(75 . 61 ) (MNSNR( I ) ,AVERNM(I , 1 ) , 1=1 , LI) 
WRITE(76 , 61 ) (MNSNR( I ) , AVERNM( 1,2), 1=1 . LI ) 
WRITE(77 , 61 ) (MXSNR( I ) , AVERNM( 1,1), 1=1 , LI ) 
WRITE(78 ,61 ) (MXSNR( I ) ,AVERNM(I ,2) . 1=1 , LI ) 
WRITE(79 ,61 ) (MNSNR( I ) , AVITNM( I , 1 ) , 1=1 , LI ) 
WRITE(81 , 61 ) (MNSNR( I ) , AVITNM( I , 2) , 1=1 .LI) 
WRITE(82.61)(MXSNR(I) ,AVITNM(I , 1 ) , 1=1 , LI) 
WRITE(83,61) (MXSNR( I ) , AVITNM( 1,2) . 1=1 .LI) 

c CLOSE  FILES 

CLOSE(UNIT=40) 

CL0SE(UNIT=41 ) 

CLOSE (UN IT-42) 

CLOSE (UNIT-43) 

CL0SE(UNIT=44) 

CLOSE (UN IT-45) 

CLOSE (UN IT-46) 

CLOSE (UNIT-47) 


c PLOT  OF  ITERATION  §,  k ERROR  VS  SNR 

WRITE(56 , 61 ) (SAVSNR( I ) . AVERNM( 1,1),  1=1  . LI ) 

WRITE(57 . 61 ) (SAVSNR( I ) , AVERNM( I ,2) , 1=1 , LI ) 
WRITE(58,61)(SAVSNR(I) ,AVITNM(I . 1) ,1=1 ,LI) 

WRITE(59 . 61 ) (SAVSNR( I ) , AVITNM( 1,2) , 1=1 ,LI) 

c PLOT  AVERAGE  ERROR  k ITERATION  VS.  LN(SNR) 

WRITE(85 , 61 ) ( AVSNR2( I ) , AVERNM( I . 1) . 1=1 , LI ) 

WRITE(86 , 61 ) (AVSNR2( I ) , AVERNM( I ,2) . 1=1 , LI) 

WRITE(87 , 61 ) (AVSNR2( I ) ,AVITNM( I , 1 ) , 1=1 , LI ) 

WRITE(88, 61 ) (AVSNR2( I ) . AVITNM( I ,2) , 1=1 , LI ) 

CLOSE(UNIT=56) 

CLOSE(UN IT-57) 

CL0SE(UNIT=58) 

CLOSE (UN IT-59) 

WRITE (33 . 61 ) ( AVSNR2( I ) ,SDMXER( 1 , 1 ) , 1=1  , LI ) 

WRITE(34 , 61 ) ( AVSNR2( I ) , SDMXER( 1.2) , 1=1 . LI) 
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WRITE(37.61)(AVSNR2(I),SDMNER(I.1).I=1 ,LI) 

WRITE(30 , 61 ) (AVSNR2( I ) ,SDMNER( I ,2) . 1=1 . LI ) 
WRITE(60, 61 ) (AVSNR2( I ) ,SDMXIT(I . 1 ) . 1=1 , LI ) 
WRITE(61 , 61 ) (AVSNR2( I ) ,SDMXIT( I ,2) , 1=1 , LI ) 
WRITE(62 , 61 ) (AVSNR2( I ) ,SDMNIT( I , 1 ) . 1=1 . LI ) 
WRITE(63 , 61 ) (AVSNR2( I ) ,SDW1IT(  I ,2) , 1=1 , LI ) 

c 

c PRINT  OUT  OPTIT  1 k 2 AND  OPTER  1 * 2 

c 

c 

DO  400  1=1. LI 

c 

WRITE(36,52) 

C52 

FORMAT (//* 

OPTIMUM  ITERATION  NUMBER  7) 

c 

WRITE(36,70) I 

c 

WRITE(36,40) (OPT IT (J ,1,1), J=1 , SNRN02 ) 

c 

WRITE(36,70) I 

c 

WRITE(36,40) (OPTIT( J ,1,2), J=1 , SNRN02) 

c 

WRITE(36,53) 

C53 

FORMAT (//* 

ERROR  BEFORE  MORRIS  / ERROR  AFTER  MORRIS  7) 

c 

WRITE(36,70)I 

c 

WRITE(36,40)(OPTER(J,I ,1).J=1 , SNRN02 ) 

c 

WRITE(36,70) I 

c 

WRITE(36,40) (OPTER( J , I ,2) , J=1 , SNRN02 ) 

C400 

CONTINUE 

C 

78 

FORMAT (2(1  PE 16. 8)) 

60 

FORMAT (G) 

61 

FORMAT (2G) 

c 

TYPE  73 

C73 

FORMAT (•  NUMBER  OF  AVERAGE  SNR"S  '//) 

TYPE  70, LI 

70 

FORMAT ( I ) 

RETURN 

END 

/ 
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ABSTRACT 


Noise  removal  and  deconvolution  are  often  considered  to 
be  a necessity  for  data  processing  work.  There  are  many 
methods  of  deconvolution  and  noise  removal  available 
Among  those  are  the  iterative  methods. 

The  iterative  method  used  for  this  research  is  primarily 
the  a Iways-convergent  method  of  I oup  (AC),  which  includes 
noise  removal  and  deconvolution  iterations.  It  has  been 
optimized  for  Gaussian  response  functions  and  a seismic 
wavelet.  In  addition  to  the  AC  method,  the  reblurring 
procedure  of  Kawata  and  Ichioka  (RB),  and  least  squares 
inverse  filtering  (LS)  have  also  been  used  for  seismic 
data.  No  noise  removal  method  is  used  prior  to  unfolding 
when  working  with  the  RB  and  LS  methods.  The  deconvolution 
performance  by  the  AC  and  RB  methods  (at  the  optimum 
iteration  number)  is  compared  to  the  LS  performance  for 
SNR's  ( s i gna I -to-no i se  ratios)  of  10  , 40,  and  150.  The  AC 
method  is  also  optimized  for  the  wide  Guassian,  SNR's  of  24 
43  55 155  and  11,23,36 754  for  the  narrow  Gaussian. 

Deconvolution  is  one  data  analysis  technique  used  in 
reflection  seismology;  another  is  migration. In  this  thesis 
the  phase-shift  method  of  migration  and  modeling  is 
evaluated  and  the  results  are  compared  to  Stolt's  approach. 

x i i i 


A single  spike  is  fed  into  the  phase-shift  modeling  and 
migration  methods;  a hyperbola  and  a half  circle  are 
obtained,  respectively. 

This  thesis  introduces  a method  by  which  one  can  find  the 
optimum  iteration  number  for  deconvolution  of  sampled  data. 
The  method  employs  the  mean  squared  error  (MSE),  the 
square  of  the  difference  between  the  deconvolved  result 
and  the  input,  for  optimization.  The  MSE  decreases  as  the 
deconvolution  iterations  proceed,  but  at  the  optimum 
iteration  number,  it  starts  to  increase.  The  research  is 
carried  out  for  three  types  of  data:  (1)  seismic,  (2) 
narrow  Gaussian  (fast  convergence),  (3)  wide  Gaussian  (slow 
conver cent ) . 

This  procedure  can  be  repeated  for  various  s i gna I -to-no i se 
ratio  (SNR)  data  sets  to  obtain  plots  of  deconvolution  and 
noise  removal  iteration  number  vs  SNR.  By  knowing  the  SNR 
one  can  find  the  optimum  iteration  number  from  the  plots, 
and  therefore  the  application  of  an  equivalent  window 
becomes  feasible. 
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CHAPTER  1 

i 

INTRODUCTION 

— — — — j 

! 

Whenever  a set  of  data  is  obtained  from  a recording 
instrument  or  system,  one  should  consider  deconvolution 
as  a method  for  recovering  the  original  data  or  for 
enhancement  of  the  results.  The  actual  input  data  can  be 
profoundly  affected  by  the  spreading  and  blurring  caused 
by  the  instrument  being  used.  The  recovery  of  the  spectrum 

as  it  would  be  observed  by  a hypothetical,  perfectly  [ 

i 

resolving  instrument  is  an  exciting  goal.  Deconvolution  is 
an  approach  to  undo  the  damage  inflicted  by  instrumental 
or  other  distortions. 

I 

I 

The  primary  purpose  of  this  research  is  to  introduce  a 
methodology  in  which  convergent  iterative  noise  removal 
and  deconvo lution  are  0ptimi2ed.lt  is  called  a methodo logy 
since  from  one  data  type  to  another  the  optimized 
quantities  (noise  removal  and  deconvolution  iterations 
number)  can  be  different. 

Although  the  iterative  method  of  deconvolution  and  noise 

i 

I 
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removal  perform  much  better  for  very  noisy  data  than  least 
squares  inverse  filtering  (LS),  they  are  not  generally 
considered  as  being  usable  in  a production  env i ronment .The 
main  reason  for  not  using  the  iterative  methods  is  the 
computer  time  required  to  achieve  an  optimum  deconvolution. 

In  the  transform  domain  the  i terat i ve  methods  can  be 
replaced  by  their  equivalent  windows.  The  window  transfer 
function  is  obtained  by  successive  substitution  of 
the  iterations  in  the  transform  domain.  The  use  of  an 
equivalent  window  is  also  known  as  one-shot  deconvolution. 
Using  the  equivalent  window  solves  the  computer  time 
problem,  but  one  must  know  the  optimum  iteration  number. 
See  Chapter  2,  Section  2.4.4,  for  the  window  expression. 

Once  these  optimum  quantities  are  found  for  a particular 

samp le  of  data  (sei smi c , Gauss ian,  etc ),  they  can  be 

used  for  deconvolution  by  either  an  equivalent  window  in 
the  transform  domain  or  iteratively  in  the  time  or 
function  domain. 

The  convergent  iterative  noise  removal  and  deconvolution 
techniques  used  are  the  a Iways-convergent  method  of  I oup 
(AC)  (loup,  1981)  and  the  reblurring  procedure  of  Kawata 


and  Ichioka  (RB)  (1980). These  i terat i ve  .methods  are  modified 
versions  of  van  Cittert's  (1931)  approach . Theor i es  concerning 
convolution  and  deconvolution  as  well  as  the  convergence 
of  the  iterations  and  a discussion  of  the  methods  are 
given  in  Chapter  2,  section  2.4.4  and  2.4.5. 

The  AC  noise  removal  iterations  smooth  the  data  at 
the  first  iteration  and  proceed  to  restore  the  data  back 
to  its  original  noisy  form  except  for  incompatible  noise. 

To  optimize,  deconvolution  is  performed  after  each 

restoration  i ter at i on . The  optimum  number  of  iterations  is 
found  when  the  MSE  (mean  squared  error),  the  squared 
difference  between  the  known  input  ( or  expected 
deconvolution  result  in  the  case  of  real  data)  and  the 
deconvolution  result,  is  a minimum. 

Three  types  of  data  are  used  for  optimization  in  this 
thesis:  (1)  seismic,  (2)  wide  Gaussian,  and  (3)  narrow 

Gaussian.  Each  data  type  is  optimized  for  15  signal-to- 
noise  ratios  (SNR, s). To  account  for  noise  variability  from 
one  data  set  to  another  and  to  obtain  good  statistical 
results,  50  noisy  data  sets,  each  with  a SNR  close  to  or 
equal  to  the  one  of  interest,  are  produced. 


The  seismic  data  are  a spike  train  with  same  polarity 
spikes  of  various  separations  and  with  the  same  heights. 
This  is  particularly  of  interest  since  some  closely-spaced 
peaks  are  difficult  to  resolve,  and  it  gives  a calibrated 
measure  of  resolution.  This  is  discussed  in  Chapter  3, 
where  various  plots  of  iteration  number  vs  SNR  and  some 
deconvolved  results  are  given.  The  results  for  narrow  and 
wide  Gauss ians  (fast  and  slow  convergence,  respectively) 
are  given  in  Chapter  4. 


Chapter  5 contains  an  introduction  and  evaluation  of  the 
phase  shift  migration  and  modeling  method.  A single  spike 
(a  point  reflector)  in  depth  is  used  for  modeling.  The  same 
spike  in  time  vs  distance  is  used  for  migration  to  evaluate 
the  method  and  compare  results  with  Stolt's  method 
(Claerbout,  1985). 


CHAPTER  2 
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THEORETICAL  BACKGROUND 
2.1  I NTRODUCT I ON 

Our  daily  experience  abounds  with  phenomena  that  can  be 
described  by  the  mathematical  process  of  convolution. 
Spreading,  blurring,  and  mixing  are  qualitative  terms 
frequently  used  to  describe  these  phenomena.  Sometimes 
the  spreading  is  caused  by  physical  occurrences  unrelated 
to  our  mechanisms  of  perception;  sometimes  our  sensory 
inputs  are  directly  involved.  The  blurred  visual  image 
is  an  example  that  comes  to  mind.  The  blur  may  exist  in 
the  image  that  the  eye  views,  or  it  may  result  from  a 
physiological  defect.  Biological  sensory  perception  has 
parallels  in  the  technology  of  instrumentation.  Like  the 
human  eye,  most  instruments  cannot  discern  the  finest 
detail.  Instruments  are  frequently  designed  to  determine 
some  observab I e quan  t i t y wh  ile  an  independent  par  ame  ter 
is  varied.  An  otherwise  isolated  me  a s u r erne  nt  is  often 
corrupted  by  undesired  contributions  that  should 
rightfully  have  been  confined  to  ne i ghbor i ng  measurements . 
When  such  contributions  add  up  linearly  in  a certain  way, 
the  distortion  may  be  described  by  the  mathematics  of 
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convo I ut i on . 

In  this  chapter  a brief  mathematical  background  concerning 
the  work  of  this  thesis  is  given. This  includes  The  Fourier 
transform,  convolution  and  deconvolution,  iterative 
deconvolution  methods,  noise,  and  the  iterative  noise 
removal  techniques  of  Mor r i son (Mor r i son , 1963;  loup,  1968) 
and  ( I oup , 1 98 1 ) 

2.2  THE  FOURIER  TRANSFORM  AND  RELATED  THEOREMS 


The  customary  formulas  exhibiting  the  Fourier  transformation 
are 


- i 2f)  xs 
F ( s ) - \f(x)  e dx 


f (x). 


- oo 
0*2 

+ i 2 nxs 

F ( s ) e ds 


/ — oo 

where  F(s)  is  the  forward  transform  of  f(x),  and  f(x)  is 
the  inverse  transform  of  F(s).  F(s)  and  f(x)  are  said  to 
be  a transform  pair.  This  process  is  possible  if  f(x) 
satisfies  the  Di r i ch I et  cond itions,  that  is: 


1)  The  integral  of  I f ( x ) I exists  f rom-qctfo  a© 

2)  Any  discontinuities  in  f(x)  are  finite. 

The  symbol  ) means  "has  transform",  for  example: 

f ( x ) has  transform  F(s) 
f(x)  ) F(s). 

Capital  letters  refer  to  functions  in  the  Fourier  transform 
domain  while  lower  case  letters  to  functions  in  the 
function  domain. 


There  are  many  theorems  relating  operations  in  one  domain 
to  the  corresponding  operations  in  the  other  domain.  One  of 
the  most  important  is  the  convolution  theorem: 


1 f 

f (x) 

) 

F ( s ) 

and 

g(x) 

) 

G(s) 

then 

f (x) *g(x) 

) 

F ( s )G( s ) 

As  is  often  the  case,  the  operation  in  the  transform 
domain  is  simpler  than  in  the  function  domain. 

The  Fourier  transform  of  a continuous  function  rather  than 
the  replicated  transform  of  a discrete  function  is 


8 


considered.  The  ideas  can  be  carried  over  to  the  discrete 
case  if  enough  zero  padding  is  done  to  reduce  the  effects 
of  wraparound  and  if  aliasing  is  negligible. 


2.3  CONVOLUTION  AND  DECONVOLUTION 


2.3.1  CONVOLUT I ON 


Is  there  a perfect  recording  instrument  or  measuring 
device?  The  answer  to  this  question  is  perhaps  non,  since 
every  instrument  distorts  the  input  data  somehow 
according  to  its  imperfection  or  impulse  response 
function  (broadening  effect).  In  si  rnp  I e t e rms  the  ou  t pu  t 
of  a system  is  a distorted  form  of  input  to  the  system. 

Every  linear  instrument  has  an  impulse  response  function. 
This  is  the  instrument  reaction  to  an  impulsive  input. 
Fourier  transformation  of  this  impulse  response  function 
determines  the  domain  of  frequencies  the  instrument  can 
pass.  Therefore  if  an  input  signal  contains  frequencies 
beyond  the  frequency  range  of  the  instrument,  some  of 
the  signal  is  lost.  The  instrument  is  simply  unable  to 
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register  the  data 
If  the  system  is 
relationship  between 
cal  led  convo I ut i on . 


corresponding  to  these  frequencies, 
linear  and  shift  invariant,  the 
the  input  signal  and  the  output  is 


Convolution  describes  the  action  of  an  observing 
instrument  as  it  takes  the  weighted  running  mean  of  some 
quantity  over  a narrow  range  of  some  variable.  When  the 
form  of  the  weighting  function  does  not  change  as  the 
central  value  of  the  variable  changes  over  the 
measurement,  then  the  observed  quantity  is  the 
convolution  of  the  described  quantity  with  the  weighting 
f unct i on . 

he  following  diagram  shows  a convolution  model: 


f 


i nput 


system 


h 


output 


> 


The  mathematical  expression  for  the  convolution  is 
O0 


h ( x ) - \ f (u)  g ( x-u ) du 


- *£? 
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h(x)-  f (x) *g(x) , 

where  h(x)  is  the  output  signal,  f(x)  is  the  input  signal, 
and  g(x)  the  instrument  impulse  response  function. As  x,  in 
the  domain  of  the  output,  is  varied,  the  value  of  the  area 
under  the  curve,  f(u)g(x-u)  vs.  u,  corresponds  to  the 
output,  h.  See  Fig-  2.1. 


If  there  is  a perfect  instrument,  its  impulse  response 
function  is  a delta  function,  ^(x)  . For  such  an  instrument 


h (x)«  f (x)  * (x)  = ^ (x) 


h ( x ) 


^ O 

V f(u)^x-u)  du  - f(x). 

'Z  &C 


The  input  signal  is  equal  to  the  output  signal  with  no 
distortion.  The  delta  function  is  the  identity  operator 
under  convolution. 


Data  are  recorded  in  a discrete  form  or  converted  to 
discrete  form  by  an  ana  I og-to-d i g i ta I converter  for 
computer  use.  The  convolution  integral  becomes  a 
surrma tion  and  the  continuous  functions  f(x)  and  g(x) 
are  simply  replaced  by  their  approximated  sampled 

an  infinite  sequence,  the  serial 


sequences . If  f is 


product  or  discrete  convolution  is  obtained  by  the 
following  formula: 

OO 

h = \ f g 

n / m n^m 

m—  (V 


where  h , f , g are  quantized  functions  and  n and 
n m n-m 

m are  discrete  variables. 


2.3.2  DECONVOLUTION 


So  far  the  relationship  between  the  output  signal  of  a 
sh i f t- i nvar i en t instrument  and  its  input  signal  has  been 
established.  It  is  often  desirable  to  remove  the  effects 
of  the  impulse  response  function  of  the  instrument  and  to 
recover  the  actual  input  signal  f in  terms  of  g and  h 
This  process  is  called  deconvolution. 


There  are  several  methods  of  deconvolution.  Among  these 


are  the  ones  considered  here: 
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1.  van  Cittert's  method  (van  Cittert,  1931) 

2.  Always-convergent  technique  of  loup  (AC) 

( I oup , 1981 ) 

3.  Reblurring  procedure  of  Kawata  and  Ichioka 
(RB)  (also  called  the  mirror  image  approach 

by  Lacoste)  (Kawata  and  Ichioka,  1980; 
Lacoste,  1982) 

4.  Least  squares  inverse  filtering  (LS) 
(Robinson,  1980) 

5 . I nver se  f i I ter i ng . 


In  this  work  the  AC  of  loup  and  the  RB  of  Kawata  and  Ichioka 
are  of  primary  concern. 


The  fo I I owi  ng  diagram  shows  the  i nver se  f i I ter i ng  method  of 
deconvolution  in  the  function  domain. 


f l I • h 


> i g 


i 


i _iif 

> | g | 

I I 


h-  f *g 


f 


f 


-1 

h*g 


-1 
f *g*g 
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The  above  operation  in  the  transform  domain,  by  the 
Convolution  Theorem  developed  earlier,  becomes 

f (x)*g(x)-h(x) 

F ( s ) G(s)-H(s) 

F(s)=H(s)/G(s)  . 

This  procedure  is  undefined  for  s values  for  which  G(s)«0. 
The  principal  solution  suggested  by  Bracewell  and  Roberts 

(1954)  is 


l H(s)/G(s)  (s:  G(s)/0} 

VS)'  ! o (s:  G(s)-O) 

The  magnitudes  of  the  transforms  are  shown  in  Fig.  2.2 

Because  of  the  symmetry  property  of  the  magnitude,  only 

positive  frequencies  are  presented.  Fig.  2.2  shows  IFI,  IGI 

and  I H I while  Fig  2.3.  shows  IF  I,  IGI,  and  IHI. 

P 


The  source  of  possible  Gibbs  oscillations  in  the  solution 

-1 

f (X)-  F {F  (s)} 

P P 
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is  obvious  in  the  truncated  transform  (Bracewell  and  Roberts, 
54;  Frieden,  75).  Setting  F(s)  to  zero  at  places  where  G(s) 
is  zero  is  equivalent  to  multiplying  F (s)  by  a truncating 
function  such  as  a rectangle  window, 

F ( s ) «F  (s)T1  ( s/s  ) . 

P c 


But  according  to  the  convolution  theorem: 


f (x)  =f (x) *s  sine  2s  x 
p c c 

This  happens  for  every  zero  region  of  G(s)  and  results  in 

multiplication  by  a rectangular  pulse  of  the  corresponding 

duration.  The  supperpos i t i on  of  these  effects  (convolution 

with  the  sinc-like  inverse  transform)  is  the  approximate 

solution  f (x).  Proper  tapering  of  the  rectangular  window 
P 

reduces  these  oscillations. 


f (x)  is  not  a unique  solution  since  any  data  having  a 

non-zero  transform  for  {s:G(s)«0}  can  be  added  to  f (x)  to 

P 

give  a solution  to  the  convolution  model  (BA/  and  RB , 1954; 

I oup  and  I oup  1983). 

If  additive  noise  n(x)  is  present  in  the  data,  h(x)  becomes: 


d(x)  - h(x)  + n(x) 
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The  resulting  experimental  data  d(x)  are  given  by: 

d ( x ) - h ( x ) + n ( x ) - f *g  +n(x), 

and  the  principal  solution  if  no  noise  removal  is  applied 
becomes : 

F (s)  - H(s)/G(s)  + N(s)/G(s) . 
d 

Beyond  s , the  cutoff  frequency  of  G(s)  (the  maximum 
c 

f r equency  present),  H(s)  is  zero;  howeve r , N ( s ) is  not 

necessarily  zero  in  this  region.  This  portion  of  the 
noise  spectrum  is  called  incompatible  noise  as  is  any 
non-zero  part  where  G(s)  is  zero.  (Morrison,  1963) 

defines  the  incompatible  region  as  that  part  of  the 
spectrum  where  N(s)  and  G(s)  are  uncorrelated.  The 

remainder  of  the  noise  is  compatible.  The  incompatible 
part  of  the  noise  can  be  entirely  removed,  since  no 
finite  (physical)  F(s)  times  zero  (G(s)-O)  will  give  a 
non-zero  result. If  the  incompatible  noise  is  not  removed 
the  solution  in  this  region  goes  from  being  undefined  in 
the  absence  of  noise  to  being  infinite  (loup  and  loup 
1983).  With  van  Cittert  iterative  deconvolution 

i ncompat ible  noise  builds  linearly  with  iteration  number 
(Bracewell  and  Roberts,  1954). 
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In  the  region  where  I G ( s ) l is  small,  compatible  noise 

becomes  dominant,  since  in  the  quotient  N(s)/G(s),  small 

changes  in  G(s)  lead  to  large  changes  in  F (s),  thus 

amp  I i f y i ng  the  noise.  The  noi se  amp  I i f i cat i on  gets  worse 

as  the  deconvolution  iterations  proceed,  since  noise  is 

increasingly  amp  lifiedwith  each  iteration.  If  1 H ( s ) 1 is 

also  small  where  I G( s ) I is  small  the  result  is  even  worse, 

since  a small  amount  of  noise  can  cause  large  variations 

in  the  value  of  F ( s ) . 

d 


The  principal  solution  may  be  redefined  as: 


I D(s)/G(s) 
F - I 
dp  I 0 


{ s : G( s ) ^0 } 
{ s : G(s)-0} 


Fig.  2.4  illustrates  the  magnitude  of  the  transforms 
with  no  noise  removal  applied  ( I oup  et  al;  in  preparation). 


2.4  BASIC  ITERATIVE  DECONVOLUTION  TECHNIQUES 


The  iterative  methods  of  deconvolution  considered  here  are. 
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1.  van  Cittert  (1931). 

2.  Always-convergent  technique  of  I oup  (1981). 

3.  Reblurring  procedure  of  Kawata  and  Ichioka  (1980). 


2.4.1  VAN  C I TTERT ' S METHOD 


Van  Cittert  (1931)  recognized  that  the  image  data  h(x) 

could  be  considered  as  a first  approximation,  f (x) , to 

0 

the  object  f(x).  After  all,  in  the  absence  of  unfolding, 

the  spect roscop i st  often  ignores  (rightly  or  wrongly) 

instrumental  spreading  and  uses  the  data  as  if  they 

represent  the  true  spectrum.  This  being  the  case,  could 

we  not  blur  the  approximation  f (x)  to  yield  an 

0 

"approximation  ” to  the  data  h(x)?  This  is  the  form  that 

the  data  would  take  if  f (x)  were  the  true  object. 

0 

Certainly  we  could,  but  we  already  have  the  data  h(x),  and 
so  what  would  be  the  purpose? 


This  blurring  actual ly  serves  a useful  function.  the 

function.  The  difference  h ( x ) — h (x),  the  easily  computed 

0 

error  in  the  image  estimate,  is  in  someway  related  to  the 

object  estimate,  f(x)  - f(x).  Van  Cittert  recognized  that 

0 

this  image-estimate  error  could  be  applied  as  a correction 
to  the  object  estimate,  thus  producing  a new  object  estimate: 
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f (x)  - h(x) 

0 

f (x)  - f (x)  + [ h ( x ) - g ( x ) * f ( x ) ] 
1 0 0 

f (x)  - f (x)  + [ h ( x ) - g(x)*f  (x)] 
2 1 1 


f (x)  - f (x)  + [ h ( x ) - g ( x ) * f ( x ) ] . 
n n-1  n-1 


In  the  transform  domain  these  iterations  become: 


F - H 
0 

F-F+lH-GF] 
1 0 0 

F-F+[H-GF  ] 
2 1 1 


F - F + [H-GF  ] 
n n-1  n-1 

1 2 n 

F - [ 1 + (1-G)  + ( 1-G)  + + (1-G)  ] H . (1) 


The  final  result  has  been  obtained  by  successive 


substitution  (BR,RB  54  FR  75). 


2.4.2  CONVERGENCE  CRITERIA  FOR  VAN  CITTERT'S  METHOD 
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In  the  absence  of  noise,  convergence  depends  only  on 
properties  of  the  impulse  response  function  g(x) . Bracewell 
and  Roberts  (1954)  gave  these  conditions.  Hill  (1973)  and 
Hill  and  I oup  (1976)  used  these  conditions  to  find  necessary 
restrictions  on  the  shape  and  position  of  the  function  g(x). 

From  equation  (1),  the  series  in  the  braces  is  the  first  n+1 
terms  of  the  convergent  binomial  expansion  of 


-1 


-1 


{ 1 - [ 1 - G(s)  ] } - (1  - 1 + G(s)  } 


■ 1 / G ( s ) 


(2) 


if  1 1 — G ( s ) I < 1 . Substituting  (2)  in  (1) 


I im  F - H(s)/G(s)  (s  : G(s)fO} 

n — > OO  n 

Therefore  there  is  convergence  if  and  only  if 

I 1-G( s ) I <1  (s:  G(s)^O) 

H(s)  - 0 (s:  G(s)-O) 


(3a) 

(3b) 


In  fulfilling  condition  (3a),  the  origin  of  g(x)  is  of 
importance  (Hill,  1973;  Hill  and  I oup , 1976),  especially 
with  an  asyrrmet  r i ca  I function.  The  question  is. 
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what  choice  faithfully  represents  the  physical  impulse 
response?  Or,  is  there  an  origin  of  g(x)  for  which  van 
Cittert's  method  converges?  Condition  (3b)  is  satisfied 
by  removing  the  incompatible  noise  described  earl ier. 


One  way  of  satisfying  condition  (3a)  is  by  trial  and 
error.  The  transform  of  g(x)  with  a selected  origin  is 
taken.  This  transform  is  then  tested  to  see  if  it 
satisfies  condition  (3a).  If  not,  the  procedure  is 
repeated  with  a new  origin  until  condition  (3a)  is 
satisfied.  The  method  of  trial  and  error  can  be  sometime 
avoided,  if  g(x)  is,  or  can  be , mat hemat i ca I I y 
manipulated  such  that  its  transform  satisfies  condition 
(3a)  (see  Hill,  1973;  Hill  and  I oup , 1976). 

2.4.3  POINT  SUCCESSIVE  AND  POINT  SIMULTANEOUS  APPROACHES 


In  the  point  successive  approach  to  deconvolution  the  value 
of  f(x)  is  updated  when  performing  the  convolution,  g * f, 
for  each  x value  within  the  deconvolution  iteration.  In 
point  simultaneous  iterations,  this  update  procedure  is  not 
done  until  the  iteration  is  complete,  and  the  convolution 
g * f is  performed  with  the  f of  the  previous  iteration 
rather  than  updating  f point  by  point. 


2.4.4  ALWAYS-CONVERGENT  METHOD  OF  IOUP 
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The  a Iways-convergent  method  of  loup  (1981)  is  a modified 
version  of  the  van  Cittert  method  of  deconvo  I urt  i on . There 
are  two  major  differences  between  the  a Iways-convergent 
method  and  the  van  Cittert  method.  First,  the  impulse 
response  function  is  replaced  by 


G (s)  - I G (s)  l / I G l 
m max 


and  second,  the  form  of  the  iteration  equation  is  modified 

and,  h is  replaced  by  the  principal  solution  f . 

P 


The  most  important  condition  to  be  satisfied  is  I 1 - G I < 1 

This  is  assured  by  the  above  modification  because  the 

division,  IGI  / I G I , makes  the  maximum  value  of  G to  be 

max 

one.  Also,  since  the  absolute  value  of  G and  G are  used, 

max 

G is  real  and  non-negative.  Therefore,  the  vector  G lies 

m m 

on  the  real  axis  of  the  plot  of  real  G vs  imag  G , with 

m m 

maximum  value  one,  Fig. 2. 5.  As  wi  I I be  seen  in  section 
2.4.5,  this  is  an  important  condition  which  guarantees  the 
convergence  of  the  iterations,  including  image  restoration 
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systems  where  the  optical  transfer  f unct i on (OTF ) i s required 
to  be  real  and  positive.  The  reblurring  procedure  of  Kawata 
and  Ichioka  (1980)  also  provides  the  same  advantage  but 

2 

it  converges  slower,  because  there  G is  replaced  by  I G I , 
corresponding  to  an  autoccoro I at i on  in  the  function  domain. 
Usually  smoothed  functions  converge  slowly. 

Applying  the  above  modifications  to  the  van  Cittert 
iterations  in  the  transform  domain,  the  a Iways-convergent 
method  is  obtained  as  follows: 

F - H 
0 

F-F  + [F  - F]G 
10  p 0 m 


F-F  + [ F - F ] G 

n n— 1 p n— 1 r 


where  F - H / G.  By  successive  substitution  F becomes 
P 2 


F - [ F + ( H/G  - F ) G ] + { H/G  - [ F + (H/G  - F )G  ] }G 
2 0 m 0 0mm 


with  F - H.  S imp  I i f y i ng  yields 
0 
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2 

F«[1-(1-G)(1-G)  ] H 

2 m 


F - [ 1 
n 


n 

( 1 - G ) ( 1 - G ) ] H / G 

m 


2.4.5  REBLURRING  PROCEDURE  OF  KAWATA  AND  I CHI  OKA 


Iterative  methods  of  deconvolution  have  been  used  for 
resolution  enhancement  of  spectroscopic  data.  Those  methods 
have  the  following  problems 

1 . convergence 

2.  noise  amplification. 

Convergence  is  attained  only  in  regions  where  the  transform 
of  the  impulse  response  of  the  system  is  non-negative.  Also 
in  the  case  where  noise  is  present,  the  noise  strongly 
reduces  the  qua  I i t y of  the  result  as  the  number  of 
iterations  increases  ( KA  & 1C,  1980). 

In  the  case  of  van  Cittert's  method,  convergence 
i s poss i b I e if  and  on  I y i f 


I 1 - C G(s)  I 


< 


1 


(1) 


where  G(s)  is  the  transfer  function  of  the  system,  and  C 
is  a normalization  imposed  for  convergence.  If  the 
impulse  response  of  the  system  is  replaced  by 


iQ(s) 

G(s)  - I G(s)  l e 


(2) 


equation  (1)  becomes 

iQ 

I 1 - Cl  G l e I < 1 

I 1 - Cl  G I cos  Q -iCl  G I sin  Q I < 1 

2 

[(1  - Cl  G I cos  Q ) + ( Cl  G I sin  Q ) 

2 

1 - 2 Cl  G I cos  Q + Cl  G I <1 

cos  Q > C I G I / 2 

Therefore,  i nequa I i ty  ( 3 ) mus t be  satisfied  to  make  the 
i terat ions  converge.  However , i f Q“ 180  degrees  (i.e.,  a 
phase  inverted  optical  transfer  function),  relation  (3) 
does  not  hold  for  any  positive  C.  It  holds  for  systems 
with  Q-0  degrees  (i.e.,  non-inverted  OTF)  for  0 < ClGl  < 2; 
therefore  the  iterations  converge  for  Q-0  degrees  if  proper 
normalization  is  used. 


2 1/2 
1 < 1 


(3) 
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To  overcome  this  problem  Kawata  and  Ichioka  (1981)  proposed 

2 

to  replace  G by  I G I Therefore,  relation  (1)  is 

mod i f i ed  to 


2 

I 1 - Cl  G I I < 1 • 


Substituting  equation  (2)  into  (4)  gives 

iQ  2 

I 1 -C i I G I e i I < 1 
2 

I 1 - Cl  G I I < 1 • 

This  shows  that  the  phase  Q has  been  eliminated. 


(4) 


2 

By  using  the  autocco I orat i on  theorem,  I G I in  the  function 
domain  becomes 

2 

) l G I 

2 

) I G I . 

By  application  of  the  above  modification  (replacing  G by 

2 . ^ . 

I G I ) to  van  Cittert's  method  with  initial  approximation, 

f *g  * h , the  following  equations  describing  the  reblurring 
0 r 

procedure  of  Kawata  and  Ichioka  are  obtained: 


g * g (-x) 
g * g 

r 
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f - g * h 
0 r 

f«f  + [g*h-f*g*gl 

10  r Or 


f - f + [ g * h - f * g * 9 1 • 
n n-1  r n-1  r 


In  the  transform  domain,  this  modification  makes  the 
impulse  response  to  be  positive  and  real ; therefore,  this 
part  of  the  convergence  problem  has  been  solved. 


In  addition,  the  reblurring  procedure  has  a great  advantage 

over  other  i terat i ve  methods  for  deconvolution  of  noisy 

data,  if  no  noise  removal  technique  is  used.  This  is 

because  the  noisy  data  are  smoothed  in  the  original 

approximation  ( f - g * h ),  so  noise  amplification  is 

Or 

reduced.  But  the  disadvantage  lies  in  slowness  of  the 
method  due  to  the  lack  of  resolution  of  the  original 


approx imat i on . 
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2.5  NOISE 

Noise  is  a part  of  every  physical  phenomenon  or  system, 
since  most  are  fundamental ly  I imi  ted  by  some  form  of 
statistical  vari ab ility,  or  noise. 

Data  processing  systems  are  usually  required  to  handle  a 
large  assortment  of  signals  in  the  presence  of  noise. The 
type  of  noise  present  must  be  specified  for  each  problem; 
noise  can  be  the  wrong  signal,  or  the  right  signal  out  of 
place, and  what  may  be  noise  to  one  observer  may  be  signal 
to  another  observer.  In  any  case,  the  design  of  systems 
depends  to  a large  extent  upon  the  statistical  properties 
of  both  the  signals  and  the  noise.  Noise  may  be  undesired 
signals  which  are  not  coherent  with  any  signals  to  which 
meaning  is  assigned  in  a system,  or  signals  which  are 
coherent  with  the  desired  signals  in  the  system.  In  any 
application,  care  must  be  given  to  the  classification  of 
which  signals  are  to  be  considered  useful  and  which  ones 
are  to  be  considered  undesirable,  or  noise  (Robinson,  1980). 

The  interfering  noise  in  exploration  seismology  may  be 
defined  in  different  ways.  One  type  of  noise  associated 
with  exploration  seismology  is  random  noise,  which  is 
random  in  both  amplitude  and  phase.  Random  noise  is  wind 
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noise  as  well  as  wave  groups  arriving  from  random 
directions.  Such  random  wave  groups  may  be  largely 
disturbances  from  secondary  sources  resulting  from  initial 
near  surface  waves  impinging  upon  randoml  y- 1 ocated , near- 
surface i n homogene i t i es  ( Rob i nson , 1 980 ) . 


The  type  of  noise  considered  here  is  Gaussian  distributed 
no i se  . Gauss i an  no i se  i s that  wh  i ch  has  a Gauss i an  or  be  I I 
curve  ( exp^n*^)  ) distribution  about  any  given  data 
point.  In  this  fashion,  if  enough  noise  cases  are  generated, 
a plot  of  frequency  of  occurrence  of  a number  vs  the 
magnitude  of  that  number  approaches  a Gaussian  shape 

(Fig.  2.6) . 

There  are  two  types  of  Gaussian  distributed  noise  of 
interest  here:  constant  and  ordinate-dependent  noise.  For 

the  constant  Gaussian  distributed  noise,  the  width  of  the 
bell  curve  is  fixed;  it  is  Gaussian  noise  with  the  same 
standard  deviation  at  each  po i nt . However , ordinate-dependent 
Gaussian  noise  is  that  for  which  the  width  of  the  bell  curve 
depends  on  the  ordinate  size  of  the  da ta  point,  i.e,  it  is 
noise  which  has  an  ordinate-dependent  standard  deviation. 


To  add  Gaussian  noise  to  the  data. 


one  can  use  the  well- 
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known  result  that  the  sum  of  comparatively  few  random 
numbers  from  a uniform  distribution  gives  a very  good 
approximation  to  a normal  Gaussian  distribution  (Harrming, 
1962).  Utilization  of  the  Cent ra I -L imi t Theorem  leads  to 
the  above  conclusion  (Harrmi  ng , 1962 ) . In  the  case  of  a 
decimal  machine  (expressed  as  a base  10  number)  it  is 
customary  to  use  12  numbers  (to  get  a variance  of  1 
(Harrming,  1962)).  Since  the  sum  does  not  have  mean  zero 
(it  is  half  of  the  number  of  points;  for  12  numbers  the  mean 
is  6),  the  necessary  amount  (in  this  case  6)  must  be 

subtracted  from  the  sum  of  the  12  numbers  to  make  the  mean 
zero.  For  the  constant  case  the  expression  is: 


12 

1/2 

h ( I ) -(  \ ( A -6  ) SF  +h ( I ) ) 

nc  / ' 

i-l 


where  A is  the  generated  random  number,  SF  is  the  scale 
factor,  and  h is  the  noise  free  data.  With  help  of  the  SF 
one  can  generate  a noisy  data  set  which  has  approximately 
the  SNR  of  interest  (Leclere.  1984). 


2.5.1  MORR ISON'S  METHOD  OF  NO  I SE  REMOVAL 
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Morrison's  (1963)  smoothing  and  restoration  is  an  iterative 
technique  which  smoothes  the  noisy  data  in  the  first 
iteration,  and  proceeds  to  restore  the  data  back  to  its 
original  noisy  form  except  for  incompatible  noise  in 
subsequent  iterations.  Morrison's  noise  removal  applied  to 
noisy  data  restores  both  signal  and  noise  with  each 
iteration.  In  the  restoration  process  little  distinction 
can  be  made  between  the  restoration  of  noise  and  signal 
except  in  those  frequency  regions  where  one  significantly 
dominates  the  other.  Therefore,  to  achieve  optimum  smoothing 
a decision  must  be  made  as  to  where  the  iterations  should  be 
stopped.  There  is  a trade  off  between  the  restoration  of 
noise  and  restoration  of  the  signal  (Wright,  1980;  Leclere, 
1984;  Morrison,  1963;  I oup , 1968;  I oup  et  al,  in  preparation). 

Morrison's  method  removes  incompatible  noise  from  noisy 
data.  This  is  noise  beyond  the  cutoff  frequency  of  the 
jmpu I se  response  function  of  the  instrument  (or  any  noise 
in  the  stopband  of  the  impulse  response).  Since  d (h  + n) 
is  convolved  wi  th  g,  the  result  has  no  frequency  higher 
than  that  present  in  g,  the  impulse  response  function  of 
the  instrument  (Wright,  1980;  Leclere,  1984;  Morrison,  1963; 


loup,  1968;  loup  et  al , in  preparation). 


As  the  noise  level  of  the  data  to  be  restored 
the  nurr*>er  of  iterations  increases  because 
noise  to  obscure  the  restoration. 


Morrison's  iterations  for  noisy  data,  d,  in 
domain  are 


d - d * g 
1 

d - d + [ d - d ] * g 
2 1 1 


d-d  + [d-d  ] * g . 

n n-1  n-1 


is  decreased, 
there  is  less 


the  funct i on 


In  the  transform  domain  the  iterations  become  (loup,  1968) 
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D - D G 
1 

2 

D = D+  [ D-D  ] G=2DG-DG 
2 1 1 

2 3 

D-D  + [ D-D  ] G=*3DG-3DG  + DG  . 
3 2 2 


By  successive  substitution  the  Fourier  transform  of  the  nth 
iteration  becomes 


n 

D (s)  - [ 1 - ( 1 - G(s) ) ] D (s)  . 


S i nee 


I im 

n > CO 


n 

[ 1 - G(s)  ] - 


0 


for 


I 1 - G(s)  I < 1 


and 


n 


I im 

n > ©O 


[ 1 - G(s)  ] - 1 


for  G( s ) - 0 


the  convergence  of  the  sequence  D 

n 


is  g i ven  by 


{ s : I 1 - G(s)  I < 1 } 
{ s : G(s)  - 0 } . 


I im  D ( s ) 
n > O© 


I D (s) 
I 

I 0 


For  the  remaining  values  of  G(s)  the  sequence  diverges 
(loup,  1968;  loup  et  al,  in  preparation). 

2.5.2  AC  AND  RB  PROCEDURE  APPLIED  TO  MORRISON'S  METHOD 


loup  (1981)  also  applied  the  a Iways-convergent  approach, 

using  G - I Gl/lGl  instead  of  G,  to  Morrison's  method 
m max 

method,  to  assure  the  convergence  of  the  i terations.  The 

modifications  in  the  function  domain  (with  g 3 G ) are 

m m 


d - d * g 


1 

m 

d-d 

-h 

[ d 

- d ] * g 

2 1 

1 m 

d-d 

+ 

[ d 

- d ] * g 

n n-1  n-1  m 


The  application  of  the  reblurring  modifications  to 
Morrison's  iterations  (loup  and  loup,  1984)  produces 


d - d *g 
1 
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* g 

r 

d = d + [d-d]*g*g 
2 1 1 r 

d-d  + [ d - d ]*g*g 

n n-1  n-1  r 

Since  the  reblurring  procedure  already  has  strong  noise 
removal  built  into  it,  using  the  modified  Morrison's 
iterations  may  not  be  justified,  especial ly  since  the 

combination  of  the  two  is  extremely  slowly  convergent. 
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H-  compatible  noise 


-4— incompatible 
noise 


Region 


3 


h-  Region  I 


—♦•Region  2 


Fig.  2 

GRUSSI  fl 
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CHAPTER  3 
SEISMIC  DATA 


3.1  I NTRODUCT I ON 


In  this  chapter  I oup ' s a Iways-convergen t method  (AC)  and 
the  reblurring  procedure  (RB)  of  Kawata  and  Ichioka  are 
applied  to  synthetic  seismic  data.  The  data  consist  of  a 
same  polarity  spike  train  of  various  separations  but  with 
equal  heights  convolved  with  a minimum  phase  wavelet. For  a 
given  SNR,  50  cases  of  constant  Gaussian  distributed  noise 
(described  in  Chapter  2)  are  generated,  and  each  is  added 
to  the  convolution  of  the  minimum  phase  wavelet  and  the 
spike  train  to  obtain  50  cases  of  noisy  data. The  AC  and  RB 
methods  are  then  app I ied  to  each  of  the  50  noisy  data  sets 
By  studying  the  mean  square  error  (MSE),  the  optimum 
deconvo  lution  iteration  number  as  we  II  as  the  opt  irrum 
number  of  noise  remova.l  iterations  for  the  AC  are  found. 


These  procedures  are  repeated  for  15  different  SNR  cases. 
For  the  AC  method  the  noise  removal  is  followed  by 
deconvolution  iterations.  A single  case  whose  MSE  is  close 
to  that  of  the  average  of  the  50  cases  for  a given  SNR  is 
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used  to  show  sample  results.  These  plots  include  the  noisy 
data  set  followed  by  t hie  result  after  the  use  of  the  AC 
smoothing  method  at  the  optimum  iteration.  Then  the 
deconvolution  results  at  the  optimum  iteration  are  shown 
with  and  without  prior  smoothing.  The  results  for  each  SNR 
(50  cases  each)  are  tabulated  and  given  in  Appendix  A. 
These  tables  are  used  to  find  the  MSE  average, the  unfolding 
(deconvolution)  iteration  average,  and  the  smoothing 
iteration  average  for  each  SNR  case. These  averages  are  used 
for  plots  of  each  of  the  above  averages  vs  SNR.  These  plots 
help  in  determining  the  average  unfolding  and  smoothing 
iteration  number  needed  for  the  best  MSE  possible  if  the 
SNR  of  the  given  data  is  known. 

In  this  chapter  optimization  of  the  iterative  methods  of 
deconvolution  (AC  and  RB ) is  reported.  The  results  are 
compared  to  those  of  least-squares  inverse  filtering  (LS) 
for  selected  SNR  cases  (10,40,150).  In  section  2 the  type 
of  data  used  is  discussed;  followed  in  section  3 by  a 
discussion  of  the  method  employed  for  optimization.  In 
sections  4 and  5 results  and  conclusion  are  given. 
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3.2  DISCUSSION  OF  THE  CATA 


To  test  the  resolution  and  achieve  an  optimization  of  the 
iterative  deconvo I ut i on  methods,  a spike  train  of  various 
separations  but  with  the  same  height  and  polarity  for 
each  spike  is  generated.  This  is  especially  useful  since 
this  spike  train  varies  systematically  in  its  ability  to 
be  resolved.  It  can  also  be  thought  of  as  representative 
seismic  data.  The  separation  of  the  first  spike  train  is 
two  sample  intervals,  and  each  succeeding  pair  has  a 
separation  one  sample  interval  greater,  up  to  seven  sample 
intervals  for  the  sixth  pair  (Fig.  3.1). 

The  seismogram  of  Fig.  3.3  has  been  produced  by  convolving 
the  spike  train  of  Fig.  3.1  with  an  impulse  response 
function  which  is  a minimum  phase  wavelet  and  is  46  points 
long  (Fig.  3.2).  To  generate  a noisy  data  set  with 
approximately  the  desired  SNR, constant  Gaussian  distributed 
noise  is  added  to  the  seismogram  based  on  a scale  factor. 
To  obtain  a good  statistical  result  fifty  sets  of  noisy 
data  are  generated  for  each  SNR. 


3.3  THE  METHOD 
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Optimization  of  the  always  convergent  method  and  the 
reblurring  procedure  is  based  on  the  study  of  the  mean  squared 
error  (MSE).  For  a noisy  data  set  deconvolution  iterations 
toward  the  input  proceeds  with  noise  being  amplified  at 
each  iteration.  The  MSE  (the  square  of  the  difference 
between  the  output  of  the  method  being  used  and  the 
original  spike  train)  starts  to  decrease  as  the 

deconvolution  iterations  first  increase.  At  the  same  time 
the  magnitude  of  the  noise  is  increased.  At  the  optimum 
i ter at i on  number  noise  amp  I ificationjust  beg  ins  to 

dominate  the  deconvolution  and  the  MSE  starts  to  increase. 

The  iteration  just  before  this  is  therefore  the  optimum 
deconvolution  iteration  for  that  particular  data  set  of  a 
SNR  case. This  approach  is  used  to  optimize  RB.The  approach 
used  for  AC  is  slightly  different  because  noise  removal 
i terat ions  mus  t be  optimized  at  the  s ame  t i me  as  the 


deconvolution  iteration. 


the  AC  noise  removal 


As  was  described  in  Chapter  2, 
technique  smoothes  the  noisy  data  in  the  first  iteration 
and  then  proceeds  to  restore  the  data  back  to  its 
original  noisy  form.  To  optimize  the  AC  noise  removal 
iteration  one  has  to  determine  at  what  iteration  the  data 
being  processed  by  noise  removal  and  deconvolution 
correspond  best  to  the  noise  free  data.  Using  knowledge 
of  the  MSE  behavior  for  noisy  data  (first  decreasing  and 
then  increasing),  one  can  perform  a deconvolution  after 
each  noise  removal  iteration  (restoration  process)  to 
find  the  MSE.  This  process,  performing  a deconvolution 
after  each  noise  removal  iteration,  is  continued  until 
an  increase  in  the  magnitude  of  MSE  is  noted.  The  noise 
removal  and  deconvolution  iteration  number  corresponding 
to  the  value  of  the  MSE  just  before  the  start  of  the 
increase  is  therefore  the  optimum  iteration  number. 


Statistical  results  are  more  reliable  as  the  number 
of  trials  is  increased,  which  in  this  case  corresponds 
to  the  number  of  data  sets  for  each  SNR  case.  The  noise 
variability  from  one  noise  set  to  another  for  a given  SNR 
provides  a second  reason  to  increase  the  number  of  data 


sets . 


Computer  time  (CPU  time)  imposes  a restriction, 
however,  because  simultaneous  optimization  can  be  time 
consuming,  particularly  at  higher  SNR's  where  there  is 
less  noise  to  obscure  Ihe  data  (Chapter  2,  section  2.5) 
and  thus  an  increase  i ri  the  number  of  iterations  (Fig.  3.9) 


From  consideration  O"  the  above,  50  noisy  data  sets  for 
each  SNR  were  produced.  Each  of  the  50  noisy  data  sets  has 
a SNR  approximately  equal  to  the  one  of  interest.  For  each 
case  the  SNR,  MSE , and  the  optimum  unfolding  and  noise 
removal  iterations  are  averaged  to  be  used  for  various 
plots  of  these  averages  vs  SNR. 


Depending  on  the  criticality  of  having  a narrow  spread  of 
SNR,  a criterion  can  be  established  to  reject  noisy  sets 
which  fall  outside  the  given  limits  about  the  mean. 

The  AC  method  is  also  optimized  without  noise  removal 
applied.  Some  of  the  tables  and  plots  are  given  in  this 
chapter  and  some  in  Appendix  A . 


3.4  RESULTS 


3.4.1  THE  ALWAYS-CONVERGENT  TECHNIQUE 

The  results  for  the  AC  method  are  surrmarized  in  Tables  3.1 
through  3.5.  These  tables  include  the  average  MSE  and  the 
average  unfolding  and  noise  removal  iteration  numbers  of 
50  cases  for  a given  average  SNR.  Tables  3.3  and  3.4  are 
the  averages  without  noise  removal  applied. 


These  tables  are  used  to  produce  plots  of  the  average  MSE 
vs  SNR,  the  average  unfolding  iteration  number  vs  SNR, and 
the  average  noise  removal  iteration  number  vs  SNR  (Fig.'s 
3.4  through  3. 12). Also  the  same  plots  when  no  noise  removal 
is  app I i ed  are  given  alone  and  together  with  the  above 
plots  (noise  removal  applied)  on  the  same  axes.  Of 
particular  interest  is  the  plot  of  MSE  vs  SNR,  where  one 
can  clearly  see  the  advantage  of  noise  removal  at  the 
lower  SNR's  (less  thar  60)  and  the  overlapping  portion  of 
the  plot  (61  to  110)  which  shows  where  there  is  no  need 
for  noise  r emova I (Fig.  3.8).  Therefore  at  higher  SNR  s 

(from  greater  than  111  up  to  infinity,  corresponding  to 
noise  free  data),  application  of  the  noise  removal 
iterations  is  not  necessary.  To  test  this  prediction. 
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noise  removal  was  app I i ed  to  a single  case  of  SNR  150.Wel I 
over  1000  iterations  were  required  to  achieve  a MSE 
equivalent  to  the  one  with  no  noise  removal  applied. 


In  each  of  these  plots  the  dashed  line  indicates  the 
standard  deviation  and  the  solid  line  the  mean.  In  Figs. 
3.4  through  3.12  where  the  results  of  applying  the  noise 
removal  iterations  are  shown  together  with  those  of  not 
applying  them,  the  solid  line  corresponds  to  the  result 
with  the  noise  removal  iterations  applied  and  the  dashed 
line  corresponds  to  no  noise  removal.  The  noise  removal 
iterations  are  applied  up  to  SNR  108,  although,  according 
to  Fig  3.8  , above  SNR  60  improvement  is  not  so  obvious, 
and  at  the  higher  SNR's,  from  80  on,  there  is  no 
improvement  in  MSE  at  all. 


Fig.  3.11  is  the  result  of  the  unfolding  iterations  with 
and  without  noise  removal  app I ied.  This  plot  is  the  proof 
of  the  claim  made  out  earlier  that  noise  amp  I i f i cat i on 
dominates  the  unfolding  improvement  at  sma  I ler  iteration 
numbe r,  if  no  noise  r emova I is  applied. 

The  plots  of  Fig.'s  3.9  and  3.12  show  the  unfolding  and 
noise  removal  iterations  vs  SNR.  From  these  plots  it  can 
be  inferred  that  the  unfolding  and  noise  removal 
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iterations  vs  SNR  are  almost  linear.With  an  interpolation 
or  extrapolation  method  one  can  predict  the  optimum  number 
of  iterations  needed  for  a given  SNR.  In  fact, this  is  the 
purpose  of  this  research;  to  establish  a methodology  for 
prediction  of  the  optimum  number  of  iterations. 


For  SNR  equal  to  infinity  (the  noise  free  case),  a MSE  of 
8.230E-11  was  obtained  after  1878  iterations.  Iterations 
were  stopped  due  to  computer  round-off  error  or  negligible 
improvement  in  MSE.  It  is  impossible  to  apply  a very  large 
number  of  iterations  because  of  the  limitations  of  computer 
This  result  is  in  contrast  to  the  assumption  that,  as  the 
number  of  iterations  approach  infinite,  F becomes  H/G. 

At  each  SNR  a single  case  whose  MSE  was  close  to  that  of 
the  average  SNR  is  selected  to  show  the  deconvolution  with 
and  wi  thout  the  application  of  noise  removal.  The  noisy 
and  the  smoothed  data  are  given.  The  results  for  SNR  s of 
10,  40,  and  150  are  given  here  (Fig.'s  3.13  through  3.23) 
and  the  rest  with  tables  of  MSE  for  each  SNR  in  Appendix  A. 

3.4.2  REBLURRING  PROCEDURE  AND  LEAST  SQUARES 


The  results  for  the  RB  as  well  as  LS  are  given  in  Tables 
3.6  through  3.9  . Because  the  reblurring  method  is  a slow 
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function  of  the  number  of  iterations,  only  three  SNR  cases 
are  presented.  For  the  noise  free  case  the  magnitude  of  the 
MSE  is  0.00276. This  corresponds  to  90000  iterations  with  no 
minimum  reached.  The  iterations  were  stopped  due  to  the 
computer  time  required 

Table  3.8  contains  the  results  of  the  LS  method.  Three  SNR 
cases  of  10,  40,  and  150  (10  cases  each)  were  selected. For 
the  noise  free  case  the  MSE  was  order  of  magnitude  1.0E-06. 

Fig.  3.24  shows  the  average  MSE  vs  SNR  for  RB . The  dashed 
line  is  the  MSE  for  noise  free  data  (SNR  infinity)  after 
90000  iterations.  The  solid  curve  approaches  this  value 
as  the  SNR  is  increased.  Fig  3.30  is  the  same  result  for  LS. 

Fig  3.25  displays  the  unfolding  iteration  number  vs  SNR  for 
the  RB.  The  iterations  are  assumed  to  approach  the  dashed 
line  (SNR-  infinity,  i ter at i ons-90000 ) as  SNR  increases. 
Deconvolution  results  are  shown  for  cases  whose  MSE  is  the 
closest  to  the  averages  in  Fig's.  3.26  through  3.34. 


3.5  CONCLUSIONS 
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By  comparing  the  deconvolution  of  the  AC  and  RB  methods 
with  that  of  LS , it  can  be  concluded  that  the  iterative 
methods  are  superior  at  low  SNR'S.  The  average  MSE 
obtained  for  the  AC  method  with  noise  removal  applied  at 
SNR-10  is  8.73.  For  RB  it  is  8.68  and  for  LS  10.64  . This 
shows  that  the  optimum  use  of  the  iterative  methods  of 
deconvolution  at  low  SNR'S  is  superior  to  that  of  LS  not 
only  for  MSE  but  also,  from  Figs.  3.17,  3. 27, and  3. 32, for 
resolution.  The  resolution  can  be  even  better  if  the 
iterations  are  allowed  to  continue,  at  the  price  of 
further  noise  amplification  and  .thus  an  increase  in  MSE. 

At  higher  SNR's  the  difference  in  MSE  and  resolution  is  not 
noticeable  among  all  three  methods.  Thus  one  may  choose  to 
work  with  any  of  the  methods  provided  that  the  computer  time 
is  not  a problem.  If  it  is,  then  LS  is  clearly  superior  unless 
one  uses  the  one-shot  deconvolution  equivalent  of  the 
iterative  methods. 


To  achieve  higher  resolution  using  iterative  methods  one  may 
choose  to  work  with  otier  norms  rather  than  the  MSE . I n image 
processing  systems  this  is  preferred  because  the  human  visual 
system  filters  noise  and  therefore  a higher  resolution  is 
often  preferred  (Andre/vs  and  Hunt,  1977;  Hunt,  1978). 
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TABLE  ( ) 3.1 


SNR  AVERAGE 

MSE 


9.841928 

8.737156 

19.68386 

.7.485857 

29 . 52579 

6.623653 

39 . 36771 

5.919385 

49 . 20965 

5.312435 

59.05157 

4.779438 

68.89351 

4.301651 

74.72681 

4.073354 

78.73543 

3.718730 

84.06767 

3.696341 

93.40852 

3.240202 

98.41930 

3.168524 

108.2612 

2.724073 

STANDARD  AVERAGE 

DEVIATION  MSE  + SO 


0.2718737 

9 . 009029 

0.3292042 

7.815062 

0.4001058 

7 . 023759 

0.4704656 

6.389851 

0.5365910 

5.849026 

0 . 6055247 

5.384962 

0.6611241 

4.962776 

0.7031566 

4.776510 

0 . 2444320 

3.963162 

0.7424178 

4.438759 

0.2418046 

3 . 482007 

0.7883208 

3.956845 

0.2175720 

2.941645 

AVERAGE 
MSE  - SD 


8.465282 
7.156653 
6.223547 
5.448919 
4.775844 
4.173913 
3 . 640527 
3.370197 
3.474298 
2.953923 
2 . 998398 
2 . 380203 
2 . 506501 


TABLE  ( ) 3.2 


SNR 


9.841928 
19.68386 
29.52579 
39.36771 
49 . 20965 
59.05157 
68.89351 
74.72681 
78.73543 
84.06767 
93.40852 
98.41930 
108.2612 


AVER.  UNF.  STANDARD 

ITERATIONS  DEVIATION 


26 . 64000 

4.995037 

44.42000 

10.57372 

63.32000 

19.17649 

80 . 74000 

25 . 38035 

1 00 . 2000 

28.56361 

122.1 800 

26.43535 

1 38 . 6200 

27.00140 

1 49 . 8400 

26.41845 

156.1875 

22.00914 

1 60 . 0600 

26.22930 

175.7838 

1 5 . 48344 

1 75 . 8000 

26.11589 

193.2941 

10.40794 

AVERAGE  AVERAGE 

UNF.+SD  UNF. -SO 


31.63504 

21 . 64496 

54.99372 

33.84628 

82.49648 

44.14352 

1 06 . 6203 

54.85965 

128.7636 

71 . 63638 

148.6154 

95 . 74465 

165.6214 

111 .6186 

176.2585 

123.4215 

178.1966 

134.1784 

186.2893 

1 33 . 8307 

191 .2672 

160.3003 

201 .9159 

1 49 . 6841 

203.7021 

182.8862 

TABUE  ( ) 


3.3 


SNR 


9.841928 
19.68386 
29 . 52579 
39.36771 
49 . 20965 
59.05157 
68.89351 
74.72681 
78.73543 
84.06767 
93 . 40852 
98.41930 
108.2612 


AVER.  SMT.  STANDARD 

ITERATION  DEVIATION 


9 . 580000 

1 .297536 

20 . 64000 

3.735023 

32.82000 

7.514493 

46 . 1 8000 

11.65451 

58 . 1 0000 

14.43780 

67.18000 

12.96563 

80 . 44000 

1 5 . 75838 

85.42000 

8.856839 

97 . 50000 

14.94155 

99 . 46000 

10.41770 

113.2973 

10.52889 

121 .6400 

10.66538 

135.4118 

7.677767 

AVERAGE  AVERAGE 

SMT.+SD  SMT.+SD 


1 0 . 87754 

8.282464 

24.37502 

1 6 . 90498 

40 . 33449 

25.30551 

57.83451 

34 . 52549 

72.53780 

43 . 66220 

80 . 1 4563 

54.21437 

96 . 1 9838 

64.68163 

94.27684 

76.56316 

112.4416 

82 . 55845 

1 09 . 8777 

89 . 04230 

123.8262 

1 02 . 7684 

1 32 . 3054 

1 10.9746 

1 43 . 0895 

1 27 . 7340 

TABLE  ( ) 
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SNR  AVERAGE  STANOARO  AVERAGE 

MSE  DEVIATION  MSE+SD 


9.841928 

21.79787 

19.68386 

1 1 . 00536 

29 . 52579 

8.160901 

39.36771 

6.719419 

49.20965 

5.761693 

59.05157 

4.931045 

68.89351 

4.453925 

78.73543 

3.967191 

88.57736 

3.553317 

98.41930 

3.197412 

108.2612 

2.888947 

118.1031 

2.620376 

127.9451 

2.385688 

137.7870 

2.180045 

147.6289 

1 .999334 

1.671903 

23 . 46977 

0.8359824 

11.84134 

0.7050129 

8.865914 

0 . 6982867 

7.417706 

0.7268140 

6 . 488507 

0 . 3273007 

5.258346 

0.8076731 

5.261598 

0 . 8474249 

4.814616 

0 . 8846793 

4.437996 

0.9188012 

4.116213 

0.9498125 

3.838759 

0 . 9777507 

3.598127 

1 . 002834 

3.388522 

1 .025338 

3 . 205383 

1 . 045507 

3.044841 

AVERAGE 

MSE+SD 


20.12596 
10.16937 
7.455888 
6.021133 
5 . 034879 
4.603745 
3.646252 
3.119766 
2.668637 
2.278610 
1.939134 
1.642625 
1 . 382853 
1.154707 
0.9538268 


TABLE  ( ) 3.5 


SNR 


9.841928 
19.68386 
29.52579 
39 . 36771 
49 . 20965 
59.05157 
68.89351 
78.73543 
88.57736 
98.41930 
108.2612 
118.1031 
127.9451 
137.7870 
147.6289 


AVERAGE  STANOARD 

UNF.  ITR  DEVIATION  _ 


6.700000 

0 . 5744563 

1 2 . 04000 

0.8935323 

1 7 . 90000 

1.615549 

24 . 62000 

2.682462 

32 . 64000 

3.882061 

42 . 1 0345 

3.467533 

51 .12000 

6.736884 

61.26000 

8.361364 

71 . 82000 

9.995378 

82 . 48000 

1 1 . 63656 

93.26000 

13.29934 

1 03 . 9400 

14.87335 

114.4200 

16.45976 

124.5600 

17.99240 

1 34 . 3400 

19.47985 

AVERAGE  AVERAGE 

UNF.ITR+SD  UNF . ITR— SO 


7.274456 

6.125544 

1 2 . 93353 

11.1 4647 

19.51555 

16.28445 

27.30246 

21 .93754 

36.52206 

28.75794 

45.57098 

38.63591 

57 . 85688 

44.38311 

69.62136 

52.89864 

81 .81538 

61.82462 

94.11657 

70 . 84344 

106.5593 

79 . 96066 

118.8133 

89 . 06666 

130.8798 

97.96024 

142.5524 

106.5676 

153.8198 

114.8602 

TABLE  3.6 


SNR 


AV.  MSE  S.D 


AV.  MSE+SD  AV . MSE— SO 


8.688261 
5.925281 
1 .795615 
0.00276 


0.1627080 
0.2801664 
0 . 1 730083 
0.0 


8.850969 
6 . 205447 
1.968623 
0.0 


8.525553 
5.645114 
1 . 622607 
0.0 


10 

40 

150 


I 

TABLE  3.7 


■ SNR 

AV.  ITRN 

av.itrn+sd 

AV. ITRN-SD 

■ 10 

143.7000 

22.65944 

166.3594 

121 .0406 

2524.480 

398.3608 

2922.841 

2126.119 

■ 

150 

25496.70 

1992.233 

27488 . 93 

23504.47 

90001 

0. 

0. 

0. 

TABLE  3.3MSE  FOR  LS 


SNR 


CASE  NO. 

SNR- 10 

SNR-40 

SNR-1 50 

1 

10.47158 

6 . 385849 

1 . 684585 

2 

1 1 . 26424 

7 . 1 00804 

1 .780114 

3 

1 1 . 04425 

7.121286 

1 . 905267 

4 

10.81335 

6.962879 

1 . 808486 

5 

10.70359 

6.971309 

1 .799288 

6 

10.93749 

6.771500 

1.690314 

7 

10.05189 

5.851874 

1 .505212 

8 

10.35378 

5.829002 

1 . 400842 

9 

10.45517 

6 . 484002 

1 .631310 

10 

10.31653 

6.360021 

1 . 570464 

TABLE 

3.9 

AV. 

MSE  S.O 

10 

10.641192 

0.3564589 

40 

6.583852 

0.4571581 

150 

1 . 677588 

0.1464324 

1 . 0406679E— 06  0 . 0 

CHAPTER  4 


GAUSSIAN  DATA 


4.1  I NTRODUCT I ON 


This  chapter  concerns  optimization  of  the  AC  method  for  two 
Gaussian  impulse  response  functions,  one  narrow  and  one 
wide.  The  input  consists  of  three  narrow  Gaussians  selected 
to  give  some  overlap  after  convolution  with  g ( Wright, 1980 
Lee  I ere , 1984) . 


The  purpose  of  this  chapter  is  first  to  optimize  the  AC 
noise  removal  and  unfolding  iterations  using  the  new 
impulse  responses,  i .e. , the  narrow  and  wide  Gauss i ans ; and 
second,  to  compare  the  results  of  the  narrow  and  the  wide 
Gaussian  cases  to  see  how  they  converge. 


The  method  used  to  achieve  the  optimization  is  essentially 
the  same  as  the  one  employed  in  Chapter  3 for  seismic  data, 
that  is,  finding  the  minimum  MSE  to  optimize  the  noise 
removal  and  unfolding  iterations  for  the  two  Gaussians. 


Various  plots  of  the  MSE  and  iteration  number  vs  SNR  are 
given  here  and  in  Appendices  B (narrow)  and  C (wide). 


Section  2 contains  a discussion  of  the  data  and  section  3 
gives  the  r esu I t s . These  are  fol lowed  by  conclusions,  tables, 
and  plots.  As  before  tables  of  each  SNR  and  some  of  the 
plots  are  given  in  Appendices  B and  C . 
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4.2  DISCUSSION  OF  THE  DATA  USED 


Two  Gauss ians  as  impulse  response  functions  are  used  for 
the  work  described  in  this  chapter. They  are  referred  to  as 
the  narrow  (Fig.  4.2)  and  the  wide  (Fig.  4.27)  Gaussians. 
The  narrow  Gaussian  consists  of  9 points  and  the  wide  one 
of  21  po i nt s . Convo I ut i on  of  each  of  these  impulse  response 
functions  with  the  input  (Fig.  4.1)  is  given  in  Fig.  4.3 
(narrow  case) , and  Fig.  4.28  (wide  case) . 

Iterative  methods  of  noise  removal  and  deconvolution 
converge  faster  for  impulse  response  f unct i ons  where  lG(S)l 
is  a nun±>er  close  to  one  for  a given  s,  and  slower  in 
regions  where  I G(S)  l is  not  close  to  one  for  a given  s. 

The  narrow  Gaussian  has  a broad  transform.  Therefore  its 
magnitude  stays  close  to  one  for  a larger  portion  of  the 
frequency  axis,  if  normalized  to  have  maximum  value  of  one 
Thus  it  is  a faster  converging  function.  The  wide  Gaussian 
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has  a narrow  transform.  Therefore  it  is  a slowly  converging 
function.  These  conclusions  are  confirmed  by  the  results  of 
this  chapter  . 


The  reason  for  choosing  to  work  with  two  Gaussian  impulse 
response  functions  is  because  of  the  Central  Limit  Theorem 
which  states  that  if  a large  number  of  functions  are 
convolved  together  the  resultant  may  be  very  smooth,  and 
as  the  number  increases  indefinitely,  the  resultant 
approaches  a Gaussian  form.  This  behavior  is  exhibited  by 
many  physical  systems  (Bracewel I , 1978).  Also,  many 

instrument  impulse  response  functions  have  a Gaussian  form. 
Therefore,  two  Gaussians,  one  slowly  convergent  (wide)  and 
one  rapidly  convergent  (narrow)  are  generated  to  cover 
approximately  the  I imi  ts  of  convergence. 

A criterion  is  chosen  to  terminate  the  iterations  when  the 
difference  between  two  consecutive  MSE  ' s is  on  the  order 
of  magnitude  of  1 . 0E-04  (MSE  improvement  negligible)  for 
the  narrow  case. For  the  wide  case  this  number  is  increased 
to  1.0E-02,  because  of  the  slowness  of  convergence.  This 
criterion  may  be  cal  led  the  tolerance. 


To  obtain  a good,  statistical  result  as  before  for  15  SNR 
cases,  50  noisy  data  sets  each  with  a SNR  close  to  the  one 
of  interest  are  generated.  The  optimum  noise  removal  and 
deconvolution  iteration  number  is  found  for  each  set. These 
iteration  numbers  as  well  as  the  MSE  are  averaged  to  be 
used  for  various  plots  vs  SNR. 
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4.3  RESULTS 


4.3.1  THE  NARROW  GAUSS  I AN 


Tables  4.1  through  4.5  summarize  the  average  MSE  and  the 
average  unfolding  and  noise  removal  iteration  results  for 
each  SNR  case.  Tables  4.3  and  4.5  are  the  average  MSE  and 
the  average  number  of  unfolding  iteration  results  without 
applying  the  noise  removal  iterations.  The  first  column 
of  each  table  is  the  average  SNR  (average  of  50)  followed 
by  either  the  average  MSE  or  the  average  number  of 
iterations  (unfolding  or  smoothing).  The  third  column  is 
the  standard  deviation,  and  the  last  two  columns  are  the 
mean  iteration  number  minus  and  plus  the  standard  deviation. 
These  tables  are  used  to  produce  the  plots  of  Fig.'s  4.4 
through  4.13  . Fig.  4.4  is  the  average  MSE  vs  SNR  when  noise 
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standard  deviation,  and  data  points  are  marked  with  x . This 

plot  is  well  behaved  and  it  can  be  used  for  prediction  of  the 

MSE  by  either  interpolation  or  extrapolation.  Fig.  4.6  is  the 

same  as  above  without  applying  the  noise  removal  iterations. 

Fig.  4.7  is  used  to  demonstrate  improvements  achieved  by 

applying  the  noise  removal  iterations.  This  figure  has  been 

produced  by  plotting  Fig.'s  4.5  and  4.6  on  the  same  axes. Fig. 

4.8  is  the  same  as  Fig. 4. 7 without  plotting  the  standard 

deviations.  This  helps  in  avoiding  a possible  confusion  of 

interpretation  of  Fig.  4.7.  Fig.  4.8  indicates  that  applying 

the  noise  removal  iterations  to  noisy  data  sets  with  SNR 

3.4 

SNR  higher  than  about  30  ( e ) does  not  provide  any 

improvement  in  MSE.  The  MSE  even  gets  worse  if  noise  removal 

6.2 

i s app lied  to  da  t a with  SNR  higher  than  500  ( e ) . 

The  next  four  sets  of  figures  (4.9  through  4.12)  show  the 
results  for  the  unfolding  iterations.  From  these  sets  of 
plots  the  foil  owi ng  can  be  inferred:  (1)  unlike  the  sei smi  c 

case  the  number  of  unfolding  iterations  tends  to  stay 
constant  rather  than  increasing  as  SNR  is  increased,  (2)  as 
before,  applying  the  noise  removal  iterations  increases  the 
number  of  unfolding  iterations  (Fig.  4.9).  This  increase  is 
almost  independent  of  SNR  and  does  not  necessar i ly  lead  to 
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a better  MSE  (see  Fig.  4.8).  Fig.  4.13  shows  the  number  of 
noise  removal  iterations  vs  SNR.  It  also  tends  to  stay 
constant  as  the  SNR  is  increased. 


The  MSE  for  noise  free  data  (SNR  infinite)  is  8 . 09E-09  at 
the  optimum  iteration  number  of  62. This  iteration  number 
can  be  thought  of  as  an  asymptote  to  the  unfolding  iteration 
number  vs  SNR  plot  as  SNR  increases  (as  the  level  of  noise 
is  lowered).  Applying  the  noise  removal  iterations  to  noisy 
data  sets  for  which  the  SNR  is  high  (less  noise)  would  cause 
the  unfolding  iterations  to  go  beyond  this  number  (the 
asymptote).  This  behavior  can  be  explained  by  considering  the 
mechanism  by  which  the  noise  removal  iterations  work.  They 
smooth  the  data  first  and  then  restore  them  back  to  the 
original  form.  After  the  noise  removal  iterations  have  been 
applied,  the  data  have  less  resolution  and  take  more 
unfolding  iterations  to  reach  a given  resolution  improvement 
level.  From  the  above  arguments  it  can  be  inferred  that  with 
smoothing,  the  maximum  number  of  unfolding  iterations  should 
not  be  allowed  to  exceed  that  for  noise  free  data  (in  this 
case  62)  no  matter  what  the  SNR  is.  If  they  do,  the  noise 
removal  iterations  do  not  give  any  improvement  and  should 


not  be  app lied. 
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The  rest  of  the  plots  in  this  chapter  are  examples  of 
deconvo I ut i on  wi  th  and  without  application  of  the  noise 
removal  iterations  for  SNR's  of  11,36,  and  135  (Fig.'s  4.14 
through  4.26).  Appendix  B contains  tables  and  plots  of  some 
other  SNR  cases. 


4.3.2  THE  WIDE  GAUSSIAN 


Tables  (4.6  through  4.10)  and  plots  (4.27  through  4.51) 
arranged  exactly  in  the  same  way  as  for  the  narrow 
Gaussian  case  and  contain  the  same  information  (the 
average  MSE,etc.).  The  only  difference  is  in  the  absissca, 
where  the  value  of  the  average  MSE  is  used  instead  of 
Ln(MSE)  (Fig.'s  4.30  through  4.38). 

As  mentioned  before,  the  wide  Gaussian  has  a narrow 
transform  and  therefore  converges  slowly.  In  consideration 
of  the  computer  time  needed  for  simultaneous  optimization 
of  15  average  SNR  cases,  50  noisy  data  sets  each,  for  a 
slowly  convergent  function,  an  upper  bound  of  2500  is  set 
for  the  number  of  unfolding  iterations.  This  causes  a 
problem.  The  results  are  incomplete  but  cons i stent . For  some 
sets  the  opt imum  iteration  number  is  reached  we  I I be  I ow  the 
limit  (2500)  and  for  some  no  optimum  is  found  by  that  limit 
Also,  an  upper  bound  of  122  is  used  for  the  number  of  noise 
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removal  iterations.  For  some  of  these  cases  after  122  noise 
removal  iterations  (the  limit),  no  optimum  deconvolution  was 
reached.  This  means  that  more  than  122*2500-305000  total 
iterations  are  needed  for  optimization.  If  10  of  the  50 
noisy  data  sets  for  a given  SNR  behave  this  way  (actually 
the  number  is  more  than  10,  as  shown  in  the  tables  in 
Appendix  C ),  more  than  305000*10-3050000  iterations  are 
required  to  optimize  just  10  cases.  For  a reasonably  fast 
system  I ike  the  VAX  8600  this  could  take  more  than  a week 
(just  for  10  of  the  50  noisy  data  sets).  Therefore,  for  a 
complete  optimization  of  15  SNR  cases  at  least  15  weeks  of 
elapsed  time  is  required. 

An  additional  reason  for  this  difficult  behavior  is  the  use 
of  an  exact  Gaussian  rather  than  a rounded  form. Another 
case  of  inconsistent  behavior  is  the  relatively  large 
tolerance  on  MSE  (1.0E-2). 


The  AC  method  uses  the  principal  solution  as  its  goal  for 
the  decon vo lution  iteration  compar i son  ( Chap  ter  2).  This 
could  be  a problem  for  the  wide  Gaussian  impulse  response 
function  or  any  function  which  has  very  many  small  values 
in  its  transform. Since  the  noise  is  also  divided  by  these 
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small  numbers,  this  leads  to  a large  change  in  F 

P 

(F  - (H+N)/G)  { s : G(s)-/0  }),  where  F is  the  principal 

P P 

solution  and  N the  noise.  That  is  why  the  noise  removal 

gives  much  greater  improvement  for  the  wide  case  than 

for  the  narrow  case. 

The  general  shapes  of  the  number  of  iterations  vs  SNR  for 
both  the  wide  and  the  narrow  Gaussian  appear  to  be  the  same 
(approximately  constant)  with  some  variation  at  low  SNR. 


For  the  noise  free  case,  10000  iterations  are  used  and 
yet  no  minimum  MSE  is  reached.  The  MSE  obtained  at  that 
iteration  is  2.109948.  Therefore,  unlike  the  narrow  case, 
no  asymptote  can  be  drawn. 


As  in  the  case  of  the  nar row  Gauss i an , some  examples  of 
deconvolution  with  and  wi  thout  noise  removal  applied  are 
shown  here  ( Fig.'s  4.39  through  4.51)  and  in  Appendix  C . 
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4.4  CONCLUSION 


The  work  in  this  chapter  includes  successful  optimization 
for  the  nar row  Gauss i an  and  partial  optimization  for  the 
wide  Gaussian  using  the  AC  method.  For  the  rapidly 
convergent  narrow  Gaussian  impulse  response  function  (wide 
transform),  applying  the  noise  removal  iterations  to  noisy 
data  at  SNR's  greater  than  about  30  does  not  give  any 
improvement.  Applying  the  noise  removal  iterations  to  the 
slowly  convergent  wide  Gaussian  impulse  response  function 
(narrow  transform),  however,  seems  to  give  great  improvement. 
For  very  slowly  convergent  Gauss ians  (like  the  wide  one  used 
here)  computer  time  makes  the  iterative  methods  unattractive, 
unless  the  SNR  is  very  low.  Since  perfect  Gaussians  are  not 
expected  for  experimentally  determined  response  functions, 
however,  this  will  not  be  a problem  in  general.  Methods  are 
being  developed  to  deal  more  effectively  with  responses 
having  transforms  with  very  sma  i I values. 


IMPULSE  RESPONSE 


10  7- 


o 

a 


UNF.  V 5 SNR  SMOOTH l N 


WITH  SMOOTHING 


SMTH.  URNS.  VS  SNR 


DECONVOLVED  RESULT 


SMOOTHED  DATA 


00  ' 8 I 0 0 ‘ fi 

Ann 1 1 ldwo 


SMOOTHED  DRT  A 


Fig.  4.28  H i OE  GAUSS  I AN 


25.00  31.00  37.00  13.00 


WITH  SMOOTHING 


RSULT  SMOTH. 


19.00  25.00  31.00  37.00  43.00  49.00 


156 


Toble  4,1  NARROW  GAUSSIAN 


SNR  MSE 


11.91097 

1569.940 

23.99113 

435.1028 

36.42192 

203.8768 

49.41155 

119.3805 

63.21439 

76.95680 

78.16010 

53 . 37440 

94.70113 

37 . 63945 

113.4964 

26.83244 

135.5715 

1 9 . 25389 

198.0053 

9 . 329469 

248.7724 

5.957883 

335.5135 

3 . 347785 

566.9553 

1 . 274442 

754.6075 

0.7937800 

MSE  RESULTS 


S.D 

MSE+SD 

968.0956 

2538.036 

236.9715 

672.0743 

101.1512 

305.0280 

56.65189 

176.0324 

35.97546 

112.9323 

25.70371 

79.07812 

18.10459 

55 . 74404 

12.62090 

39 . 45333 

8.915099 

28 . 1 6899 

4.300094 

13.62956 

2.743588 

8.701470 

1 .528916 

4 . 876700 

0.5726864 

1 .847129 

0.3361854 

1 . 1 29965 

MSE-SD 


601 . 8447 
198.1314 
102.7256 
62.72861 
40.98135 
27 . 67069 
19.53486 
14.21154 
10.33879 
5 . 029375 
3.214295 
1 .818869 
0.7017558 
0.4575946 


Table  4 2NARR0W  gaussian  unfolding  results 


UI-SD 


SNR  U.I 


S.D  UI+SD 


11.91097 

34.74000 

23.99113 

31 . 54000 

36.42192 

29 . 04000 

49.41155 

26 . 04000 

63.21439 

24.94000 

78.16010 

23.72000 

94.70113 

22.74000 

113. 4964 

22 . 32000 

135.5715 

22 . 08000 

1 98 . 0053 

21 . 86000 

248 . 7724 

22 . 08000 

335.5135 

22 . 62000 

566 . 9553 

23 . 26000 

754.6075 

23.56000 

8.566936 

43.30694 

8.144226 

39 . 68423 

8.513425 

37.55342 

8 . 41 6555 

34.45656 

7.958417 

32.89842 

7.391996 

31 . 11200 

6 . 930541 

29 . 67054 

6.537400 

28 . 85740 

5 . 785638 

27.86564 

4.783347 

26 . 64335 

4.194472 

26.27447 

3.393464 

26.01347 

2.124241 

25.38424 

1 .601999 

25 . 1 6200 

26. 

23 

20 

17 

16 

16 

15 

15 

16 
17 
17 
19 
21 
21 


17307 
39577 
52658 
6234-5 
98158 
32800 
. 80946 
.78260 
. 29436 
.07665 
. 88553 
.22654 
.13576 
.95800 
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Table  4 ^arrow  gaussian  noise  removal  results 


MSE  s.l  S.D 


SI+SD  SI-SD 


11.91097 

23.99113 

36.42192 

49.41155 

63.21439 

78.16010 

94.70113 

113.4964 

135.5715 

198.0053 

248.7724 

335.5135 

566.9553 

754.6075 


24.90000 

31.86613 

35 . 58000 

32.69868 

38.72000 

32.64417 

36.82000 

29.37257 

36 . 54000 

27.16410 

36.52000 

26.50452 

37 . 54000 

27 . 1 6558 

40 . 64000 

27.70181 

40 . 90000 

26 . 86876 

39 . 04000 

24.40981 

40 . 1 8000 

23.86436 

35 . 40000 

15.84929 

34 . 02000 

1 1 .22941 

33 . 90000 

9.814784 

56.76613 

-6.966129 

68.27869 

2.881321 

71.36417 

6 . 075836 

66.19257 

7 . 4474-32 

63.70410 

9.375902 

63.02452 

10.01548 

64.70557 

10.37443 

68.34181 

12.93819 

67.76876 

14.03124 

63.44981 

14.63020 

64.04436 

16.31564 

51.24929 

19.55071 

45.24941 

22.79059 

43.71479 

24.08522 

TABLE  4 . 4 NARROW  GAUSSIAN  MSE  RESULTS  WITHOUT  SMOOTHING 


SNR 


11.91097 

23.99113 

36.42192 

49.41155 

63.21439 

78.16010 

94.70113 

113.4964 

135.5715 

162.6571 

198.0053 

248.7724 

335.5135 

566.9553 

754.6075 


MSE  S.D 


1703.399 

968.3968 

454.9133 

229 . 3589 

211.4959 

98.13602 

122.0604 

54.89975 

78.92259 

35.51003 

54.44910 

25.48473 

38.25743 

17.85979 

27.27574 

12.57349 

19.50090 

8.884914 

13.74037 

6.258127 

9.361519 

4.285594 

5.965156 

2.727615 

3.316905 

1 .513428 

1 .207963 

0.5458487 

0.7189189 

0.3160815 

MSE+SD  MSE-SD 


2671 .796 

735.0020 

684 . 2723 

225.5544 

309.6319 

113.3599 

176.9601 

67.16062 

114.4326 

43.41257 

79 . 93382 

28.96437 

56.11723 

20.39764 

39.84923 

14.70225 

28.38581 

10.61598 

19.99850 

7.482242 

13.64711 

5.075925 

8.692771 

3.237540 

4.830333 

1 . 803477 

1 .753811 

0.6621140 

1 . 035000 

0.4028375 

TABLE  , 4 . 5NARR0W  GAUSSIAN  WITHOUT  SMOOTHING 
SNR  U.I  S.D  UI+SO 


UI-SD 


11.91097 
23.99113 
36.4-2192 
49.41155 
63.21439 
78.16010 
94.70113 
113.4964 
135.5715 
162.6571 
198.0053 
248.7724 
335.5135 
566 . 9553 
754.6075 


27.64000 

24.54000 

22.42000 
21 . 58000 
20.56000 
1 9 . 80000 
19.44000 

19.42000 
1 9 . 36000 

19.54000 
19.72000 
20 . 1 0000 
20 . 46000 
21.14000 
21.32000 


14.33982 
13.42268 
12.24596 
11.01470 
9.992316 
8.991108 
8.268397 
7 . 563306 
6 . 802235 
6.287161 
5.603713 
5.004998 
4.172338 
2.835560 
2.301651 


41 . 97982 
37.96268 
34.66596 
32.59470 
30.55232 
28.79111 
27 . 70840 
26.98331 
26.16224 
25.82716 
25.32371 
25 . 1 0500 
24.63234 
23.97556 
23.62165 


13.30018 
11.11732 
10.17404 
1 0 . 56530 
10.56768 
1 0 . 80889 
11 . 17160 
11.85669 
12.55777 
13.25284 
14.11629 
1 5 . 09500 
16.28766 
18.30444 
19.01835 
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TABLE  4 . 6 WIDE  GAUSSIAN  MSE  RESULTS 


SNR  MSE 


S.O  MSE+SD  MSE  -SD 


24.65271 

3156.546 

43.81124 

1700.655 

55.57021 

1251.332 

66.68423 

939.0714 

77.79827 

766.5312 

100.0263 

533.7740 

111 . 1404 

464.5585 

122.2544 

428.1473 

133.3685 

390 . 8942 

144.4825 

356.4906 

155.5966 

263.8145 

3211.871 

6368.417 

2119.385 

3820 . 039 

1363.210 

2614.542 

938.2737 

1877.345 

767.7725 

1534.304 

491.5919 

1025.366 

410.7849 

875.3434 

359.5916 

787.7390 

307 . 3308 

698.2250 

270 . 7242 

627.2148 

205.8321 

469 . 6466 

-55.32495 
-418.7297 
-111.8776 
0.7976685 
-1 .241333 
42.18213 
53.77365 
68.55569 
83.56332 
85.76642 
57.98245 
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TABLE  4 . 7 WIDE  GAUSSIAN  UNFOLDING  ITERATIONS 


SNR  U.I  SD 


UI+SD  UI-SD 


24.65271 

1191 .460 

43.81124 

1565.500 

55.57021 

1751.280 

66.68423 

1740.380 

77 . 79827 

1756.680 

100.0263 

1 738 . 940 

111 .1404 

1702.580 

122.2544 

1695.520 

133.3685 

1693.360 

1 44 . 4825 

1658.380 

155.5966 

1548.727 

705.4540 

1896.914 

809.9310 

2375.431 

717.3513 

2468.631 

657 . 7399 

2398.120 

620.1076 

2376.788 

566.6197 

2305.560 

560.3640 

2262.944 

563.3936 

2258.914 

545.3138 

2238.674 

560 . 5707 

2218.951 

547.3613 

2096 . 089 

486.0059 
755.5690 
1053.929 
1082.640 
1136.573 
1172.320 
1142.216 
1132.126 
1148. 046 
1097.809 
1001 .366 


TABLE  4 . 8 WIDE  GAUSSIAN 


SMOOTHING  ITERATIONS 


SNR 


24.65271 
43.81124 
55.57021 
66 . 68423 
77.79827 
100.0263 
111.1 404 
1 22 . 2544 
133.3685 
144.4825 
155.5966 


SM  SO 


59 . 44000 

27.10510 

73 . 1 0000 

24.36001 

73 . 42000 

23.77317 

75 . 52000 

21.92007 

79 . 1 6000 

22.50809 

85 . 1 6000 

23.70769 

88 . 44000 

23 . 49907 

89 . 26000 

23.73757 

88.88000 

24 . 65007 

90 . 04000 

24.61216 

99 . 60606 

22.24238 

MS+SO  MS-SD 


86.54510 

32 . 33490 

97 . 46001 

48.73999 

97.19317 

49 . 64683 

97 . 44007 

53 . 59992 

101.6681 

56.65191 

1 08 . 8677 

61.45232 

111 .9391 

64 . 94093 

112.9976 

65 . 52243 

113.5301 

64 . 22993 

114.6522 

65.42784 

121.8484 

77.36368 

TABLE  4 gWIDE  GAUSSIAN  MSE  RESULTS  WITHOUT  SMOOTHING 


MSE-SD 


SNR  MSE  SO 


MSE+SD 


9.853436 

19.70688 

29 . 56031 

39.41375 

49.26719 

59.12062 

68 . 97407 

78 . 82750 

88 . 68094 

98.53439 

108.3878 

118.2412 

128.0947 

137.9482 

147.8016 


10489.85 
7664.270 
6299.362 
5392.745 
4687 . 072 
3875 . 684 
3349.971 
2986.006 
2675.142 
2429 . 807 
2152.302 
1910.079 
1787.783 
1595.527 
1415.916 


4821 . 409 
4795.854 
4464.521 

4268.879 
3965.199 
3534.239 
3248.931 
3034 . 1 02 
2865.119 
2687 . 1 40 

2497 . 879 
2297.744 
2199.331 
1982.559 
1699.918 


15311.26 
12460.12 
1 0763 . 88 
9661.624 
8652.271 
7409.923 
6598 . 903 
6020 . 1 08 
5540.261 
5116.947 
4650.181 
4207 . 823 
3987.114 
3578.086 
3115.834 


5668 . 438 
2868.416 
1834.840 
1123.866 
721.8733 
341 . 4448 
101 .0398 
-48.09595 
-189.9771 
-257 . 3323 
-345.5771 
-387 . 6647 
-411.5476 
-387 . 0325 
-284.0026 


4 IQ 

TABLE  WIDE  GAUSSIAN  UNFOLDING  ITR.  RESULTS  WITHOUT  SMOOTHING 


SNR  U.  ITR.  SO 


U.  ITR.+SD  U.  ITR.— SD 


9.853436 

19.76688 

29.56631 

39.41375 

49.26719 

59.12662 

68.97467 

78.82756 

88.68694 

98.53439 

168.3878 

118-2412 

128.6947 

137.9482 

147.8616 


26 . 94666 
76 . 24886 
119.1886 
167.7486 
225.6266 
286.8688 
342 . 8688 
377.3668 
483.7266 
436 . 4868 
467.6886 
511.1800 
525 . 8800 
554 . 9800 
568 . 7000 


40.57507 
90.83651 
122.5296 
155.4104 
208.6233 
240 . 5387 
266.3546 
290.5133 
282.1509 
287.2698 
300.2810 
325.7479 
331 .2564 
334.6431 
304.6726 


67.51508 
167.0765 
241 .7090 
323.1504 
434.2433 
527.3987 
609.2147 
667 . 8734 
685.8709 
723.7498 
767.3610 
836.9279 
857 . 1 364 
889.0231 
873.3726 


-13.63507 
-14.59052 
-3.348969 
12.32961 
16.99670 
46.32124 
76.50534 
86 . 84665 
121 .5691 
149.2102 
1 66 . 7990 
185.4321 
194.6236 
220.9369 
264.0274 


CHAPTER  5 

EVALUATION  OF  PHASE-SHIFT  METHOD  OF  MIGRATION 
WITH  SYNTHETHIC  DATA 
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5.1  I NTRODUCT I ON 

The  phase  shift  method  of  migration  was  first  introduced 
in  1978  by  Jeno  Gazdag  (1978).  Wave  equation  migration 
techniques  have  started  with  the  pioneer  work  of 
Claerbout  (1970  and  1976).  By  defining  the  problem 
in  a downward  moving  coordinate  system  (to  achieve 
the  task  of  imaging),  Claerbout  (1970,1976)  derived  a 
s imp  I i f i ed  equat i on  wh  ich  is  easier  for  n umer ical  solution 
than  the  full  wave  equation.  This  partial  differential 
equation,  which  is  often  referred  to  as  the  15  degree 
equa tion,  has  been  solved  by  the  finite  difference  me t hod . 

Seismic  data  are  obtained  by  placing  a number  of  geophones 
at  fixed  intervals  (Ax)  along  a straight  line  on  the 
surface  of  the  earth.  Then  at  some  depth  a shot  is  set  up 
and  reflected  sound  waves  are  recorded  by  geophones.  Each 
geophone  recording  is  a graph  in  which  the  amplitude  of  the 
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reflected  sound  wave  is  recorded  vs  time  (x,t).  This  plot 
is  cal  led  a trace.  The  task  of  migration  is  to  find  the 
geometrical  shape  (image)  of  the  reflector  from  these 
traces.  To  find  the  image,  one  must  use  the  x vs  t data  and 
convert  it  to  x vs  z data,  where  z is  the  depth.  A filter 
can  be  designed  to  achieve  the  task  of  conversion  (phase- 
shift).  For  constant  velocity  this  filter  is  cal cu I a ted  once 
and  can  be  used  for  each  depth  tCL  Passing  the  x vs  t data 
through  this  filter  gives  the  x vs  t vs  z data.  By  setting 
time  t to  zero  the  x vs  z data  is  obta i ned . S i nee  the  filtering 
operation  is  a simple  multiplication  in  the  transform 
domain,  this  procedure  is  easily  done  there,  but  must  be 
repeated  for  each  depth  ^.z. 

Therefore  recorded  seismic  data  (x,t,z*0)  are  first 
transformed  to  the  frequency  domain.  This  is  done  by 
taking  a two-dimensional  fast  Fourier  transform 
(2D-FFT).  Then  a dispersion  relation  as  a filtering  operator 
is  computed.  Depending  on  the  velocity  variation  with  depth, 
the  action  of  this  f i Iter  can  greatly  affect  the  speed  of 
the  program.  The  dispersion  relation  and  action  of  the 
filter  can  be  summarized  as  follows: 


2 2 2 2 

k + k w / v 

X z 
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.F i Iter 

i nput  I 2 2 2 1/2 

> l exp ( i (w  / v - k ) z) 


output 
> 


The  phase-shift  method  proceeds  by  extrapolating  downward 

with  exp(ik  Z)  and  subsequent  evaluation  of  the  wavefield 

at  t-0  (the  reflectors  explode  at  t-0)  , where  exp(  ik  Z) 

2 

is  the  desired  filter  transfer  function. 


It  is  assumed  that  reflectors  explode  at  t-0  and  the 
resulting  wave  field  propagates  perpendicular  to  the 
reflector.  Some  of  the  components  of  the  wave  field  reach 
the  surface  and  are  recorded  by  geophones.  Therefore 
passing  the  data  through  the  filter  and  evaluating  the 
result  at  t-0  corresponds  to  the  image  of  the  reflector 
just  before  explosion. 

Of  all  the  wide-angle  methods  of  migration,  this  one  most 
easily  incorporates  depth  variation  in  velocity. The  phase  angle 
and  ob I i qu ity  function  are  correctly  incl uded , automat i ca I I y . 


The  phase-shift  method  begins  with  a 


two-d  imens  i onal 
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Fourier  transform  (2D-FT)  of  the  data  set.  Then  the 

transformed  data  values,  al I in  the  (w,k  )-plane,  are 

x 

downward  continued  to  a depth  by  multiplying  by 

2 1/2 

exp(  i K£l)  = exp{  -iw/v  [ 1-(v  k / w ) ] A®  )• 


Assumi ng  AX-V  •A.C  the  exponent  becomes 


2 1/2 

C * exp(  -iw  [ 1 -(  v k / w ) ] } 

X 

The  data  wi  I I be  mu  I t i p I i ed  many  t imes  by  C (by  as  many 
points  in  the  grid  size  for  each  depthA®  , thereby  downward 
continuing  it  by  many  steps  of 

Next  is  the  task  of  imaging.  At  each  depth  an  inverse 

Four i er  t ransf orm  is  foil  owed  by  selection  of  its  val ue  at 

t-0.  (Reflectors  explode  at  t-0.)  The  computation  is 

especial ly  easy  since  the  value  at  t»0  is  merely  a 

surmnation  of  each  w frequency  component.  (This  may  be 

seen  by  substituting  t-0  into  the  inverse  Fourier  integral.) 

Finally,  the  inverse  Fourier  transform  from  k to  x i s taken. 

x 

The  migration  process,  may  be  surrmar  i zed  as  f o I I ow  Cl  aerbout 
( 1985)  : 
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U(w,k  ) = FTlu(t.x)] 
x 

For  t-  At  JU t end  of  time  axis  on  seismogram  { 


For  all  k { 
x 


For  all  w { 


Image  ( k , -0  . 

x 


JP, 


C - exp  { - i w A.  [ 1- ( vk  / w ) 

x 


1/2 

] ) 


U(w,k  ) » U (w,  k ) C 

X X 

lmage(k  m lmage(k  , "C?)  + U(w,k  ) 

X XX 


} 


} 

imageU,^)  - FT[  lmage(k  .^)] 

X 

}. 

Inverse  migration  (Model ing)  proceeds  in  much  the  same 

way.  Beginning  from  an  upcoming  wave  that  is  zero  at  great 

depth , the  wave  i s ma  r c hed  upwa  rd  in  steps  by  mu  Itipl  ications 

with  exp(ik  2).  As  each  level  in  the  earth  is  passed,  the 
z 

exploding  ref  lectors  from  that  level  are  added  into  the 


upcomi  ng  wave . 
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A great  deal  of  attention  should  be  paid  when  writing  the 
program  for  each  of  these  steps.  Some  aspects  of  this  are 
mentioned  in  the  programming  considerations  later  in  this 
chapter . 


A single  spike  in  one  of  the  traces  corresponds  to  a half 
sphere  reflector  (imaged  in  two  dimension)  at  some  depth. 
According  to  the  exploding  reflector  model  at  time  zero,  all 
the  wavefronts  reach  the  surface  at  the  same  time  and  same 
position  (each  wavefront  can  be  thought  of  as  a radius  of 
the  sphere).  Therefore  migrating  a spike  should  give  a half 
circle  facing  the  space  domain  x-axis  (or  geophones ). Forward 
migration  or  model i ng  should  transform  a point  reflector  in 
x and  z space  into  a hyperbola  in  x and  t space.  A spike  is 
assumed  at  location  (32,32)  in  a grid  of  256  (sampled  t)  by 
64  (sampled  x).  The  assumed  values  are  Ax-4  m,  ^,t-4msec,  and 
V-1000  m/sec  to  makeAZ-4  m.  Various  aspects  of  migration  and 
model i ng  are  discussed  in  this  chapter  and  programs  are  given 
in  Appendix  D. 
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5.2  THEORETICAL  BACKGROUND 

In  the  following  derivation,  zero  offset  with  the 
exploding  reflector  model  is  assumed.  The  zero  offset 
seismic  section  p(x,t,  *£?)  may  be  considered  as  a wave 
field  measured  at  some  specified  depth  from  the  surface 
of  the  earth.  The  variables  x,  t,  and  ta  are  the  horizontal 
position,  two-way  travel  time  and  the  two-way  vertical 
travel  time.  Computationally,  the  migration  process  can  be 
regarded  as  a numerical  approximation  to  the  changes  of  the 
wave  field  as  the  sources  and  the  recorders  are  moved 
downward  into  the  earth.  A recorded  seismic  section  at  the 
surface  p ( x , t , ) serves  as  an  initial  condition  for  the 

solution  of  p (x , t , t>.  the  seismic  section  which  would  have 

been  observed,  had  the  sources  and  the  recorders  been 

* & 

positioned  at  depths  L • 

The  phase  shift  method  is  derived  from  the  equation, 

2 

P - - (v  / 8)  P . 
t ^ xx 

This  is  a second  order  approximation  to  the  two-dimensional 
scalar  wave  equation  written  in  a downward-mov i ng  coordinate 
system  (Claerbout,  1970,1976).  It  is  also  known  as  the  15 
degree  wave  equation. 
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To  keep  the  derivation  simple  no  lateral  variation  of 
velocity  is  permi  t ted , i . e . , v-vl^l  . Let  the  finite  Fourier 
transform  of  P be  defined  as 


P ( k 


,w 


, 2 \ 
#X ) -Ax^ct/4  n / 


p(x,  t 


(2) 


. exp [ - i ( k x + wt  ) ] , 

x 


whereAx  andA*  are  the  9rid  spacing. 

In  view  of  definition  (2)  the  partial  differential  equation 
in  (1)  expressed  in  the  frequency  doma i n becomes 


2 

P - [ -i(vk  ) P ] / 8w.  (3) 

T x 


The  solution  to  (3)  can  be  written  in  the  following  form 


p<^  + vcr> . p(^i  exp ( -iCU'fc'  ) 


(4) 
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wh  i ch 


2 2 

Q = ( w k ) / 2m,  and  m =>  2 w / v 

x rms 


(5) 


where  v is  the  root  mean  square  velocity  averaged 
rms 

between  the  interval  ta  and 


The  desired  migrated  section  is  given  by  the  subset  p(x, 
of  the  computed  seismic  section.  Therefore, 
after  each  step  we  compute 


p(x,  t-'f,^) 


/ / P(k  .w.^Jexpl-i  (k  x + w^)  ] , 

X X 


(6) 


which  is  the  migrated  section  in  the  (x-z)  domain. 
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5.3  PROGRAMMING  CONSIDERATIONS 


5.3.1  Migration  program 


The  most  important  part  of  the  implementation  of  the  phase 

shift  method  of  migration  is  careful  handling  of  the  data 

in  the  Fourier  domain.  Calculation  of  k and  w to  be  used  in 

x 

the  dispersion  relation  must  be  done  in  the  full  domain, 

unlike  the  filtering  problem  in  which  calculation  up  to  the 

Nyqu i s t f r equency  usually  suffices.  For  one— half  of  the  data , 

k and  w are 
x 


k -(2  rr/NAx)  (Ik  -1  ) , w-  ( 2 n/N  4t)  ( lw-1  ) 

XXX  t 


and  for  the  second  half  or  negative  frequencies  , 


k «k  -2  CT/N  , w-w-2  fl  /N 

XXX  t 


(Note  that  k in  FORTRAN  is  assumed  to  be  an  integer  so 
it  must  be  named  differently  in  the  code,  perhaps  xk . ) Ik 

x 

and  Iw  are  the  assigned  DO  loops  (from  1 to  N and  N , the 

t x 

number  of  sample  points  in  the  time  and  space  domains 

respectively)  and  (Ik  -1)  is  for  the  DC  or  zero  frequency 

x 


I eve  I . 
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The  sampling  interval  and  corresponding  velocity  must  be 
careful ly  chosen.  Usual ly  the  velocity  is  chosen  such  that 
AZmAx.  One  other  source  of  error  is  incrementing  fitfor 
each  depth  according  to  A.z=*v  should  be  kept 

constant.  If  it  is  incremented,  then  the  original 
transformed  data  should  be  used  for  each  depth  or 

If  the  velocity  is  constant,  the  calculation  of  the  exponent 
(filter  coefficients  or  transfer  function,  the  expression 
named  C earlier)  may  be  done  in  a two-dimensional  array  for 
the  first  depth  and  then  may  be  used  again  for  other 
values  of  . This  is  because  the  only  variable  which  can 
change  with  depth  AtH  in  expression  C is  velocity  v.A  simple 
IF  statement  will  perform  this  modification  (see  the  page 
concerning  documentation  of  the  program). 

5.3.2  MODELING  PROGRAM 


The  modeling  program  is  very  much  the  same  as  the 
migration  program  except  that  the  three  main  DO  loops,  12, 
Ik,  and  Iw  (concerning  the  three  spasial  frequency  numbers 
for  depth  z,  space  domain  x,  and  time  axis  t respectively) 
are  interchanged.  Unlike  the  migration  program,  there  is 
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no  option  of  changing  &Z;  In  the  model i ng  mast  be  kept 

constant.  Also,  since  z is  running  vertically  upward  (from 

some  value  to  zero),  one  starts  with  the  last  array  number 

(x image ( N -lz+1.  Ik  ))  and  ends  with  the  first  number. 
t_  x 

Approximately  half  of  the  Fourier  coefficients  can  be  set 

to  zero,  since  those  waves  with  (w<v*k  ) are  evanescent  and 

x 

correspond  to  nonpropagating  waves.  One  half  of  the  Fourier 
coefficients  are  nonphysical  if  &x=v  2 , and  since 
normal  Iy4x  is  greater  than  that;  the  number  of  the  deleted 
Fourier  coefficients  is  a sma  I ler  fraction  than  one— half  of 
the  total.  To  calculate  the  filter  transfer  function 
coefficient  the  expression  C is  used.  If  w>v*k,  then 
( 1 _ v * k / w ) in  the  expression  for  C is  a 
negative  number  and  its  square-root  is  not  defined. 
Wfetve  fields  at  these  locations  are  called  evanescent  and 

filter  coefficient  are  set  to  zero.  If  the  geophone  spacing 

/y 

(Ax)  is  such  thati  x-v  ^W2,  approximately  half  of  these 
coefficient  are  zero. 


5.4  RESULTS 


the  First  part  of  this  work  concerns  implementation  of 
the  method. A zero  offset  record  section  with  an  exploding 
reflector  model  is  assumed.  The  sample  interval  in  t is 
4msec,  and  in  x,  4meters  for  v-1000  meter / sec  .When  this 
v elocity  is  used^z  is  equivalent  toA  x.  The  migration 
examples  represent  results  obtained  from  the  15  degree 
approximation.  Fig.  5.1  shows  a single  spike  at  x»32, 
t-32,  and  z-0  (sarrpled  location).  Fig.  5.3  is  the  result 
of  migration  applied  to  Fig.  5.1.  In  Fig.  5.2,  the  spike 
is  moved  to  a deeper  location  in  time,  t-64  and  x-32,  and 
then  migrated.  Fig.  5.4  is  a good  indication  of  sensitivity 
of  migration  to  velocity.  In  Fig.  5.4  the  spike  at  (32,32) 
is  migrated  with  a v of  half  the  correct  value.  The 
resolution  (number  of  dots  per  unit  area)  is  very  poor 
when  compared  to  the  result  of  migrating  the  same  spike 
with  the  true  v.  Fig.  3. 

Fig.  5.5  represents  model i ng  using  the  phase  shift 
approach.  In  Fig  5 a spike  at  x-32,  z-32,  and  t-0  is 
assumed.  The  data  i n (x , t , z-0 ) shou I d look  like  a hyperbola, 
according  to  Huygens  secondary  point  source  model.  The 
hyperbola  in  Fig.  5.5  is  not  too  obvious  because  sampling 
points  were  chosen  so  that  this  reason,  the 
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first  arrival  time  is  128  msec  (32*4/1000)  and  the  last 
arrival  time  is  180msec.  Examination  of  Fig. 5. 5 indicates 
first  and  last  arrival  times  exactly  the  same  as  the 

above  values.  According  to  our  model  given  by 

2 2 2 u 
(x  + z - (v  t),  to  get  a more  obvious  hyperbola,  one  has  to 

increase  the  x sampling  (distance  between  geophones).  When 

the  sampling  is  increased  from  4 to  8 meters.  Fig.  5.6  is 

obtained  . This  result  indicates  that  the  above  analysis  is 

indeed  correct.  Fig.  5.7  is  the  output  of  the  Stolt  method  of 

migration.  The  semicircular  frown  is  because  of  the  linear 

interpolation  used  here.  However,  if  a sine  interpolation  is 

used  the  semicircular  frown  will  disappear  (Claerbout,  1985) 

The  periodicity  problem  of  using  the  discrete  Fourier 

transform  (DFT , or  fast  Fourier  transform,  FFT)  are  obvious 

in  all  of  the  figures.  This  problem  occurs  due  to  the  fact 

that  sampling  a function  is  equivalent  to  mu  I t i p I y i ng  the 

function  by  a Shah  function  (train  ofdelta  f unct i ons ) ( BW,  1978 ) . 

According  to  the  convolution  theorem  and  repetitive  property 

of  the  Shah  function  under  convolution,  transform  of  sampled 

functions  are  periodic.  To  overcome  the  problem  either  fine 

samp  ling  in  the  tr  an  s f o rm  doma in  or,  zero  padd i ng  in  the 

function  domain  is  required. 

5.5  CONCLUSION 


The  phase  shift  method  of  migration  is  used  for  various 


synthethic  data.  Results  are  impressive  but  the  computer 
time  required  is  too  large.  One  of  the  advantages  of  the 
phase  shift  is  the  fact  that  it  allows  for  velocity 
variation  with  depth.  Fig.  5.7  is  the  output  of  the  Stolt 
method  of  migration.  The  resolution  of  the  phase  shift 
approach  is  clearly  superior. 


One  of  the  disadvantages  of  the  phase  shift  technique  is 

the  periodicity  of  the  Fourier  transform,  which  can  be 

removed  with  zero  padding.  The  elapsed  time  is  about  40 

minutes  on  an  average  day  to  get  a run  for  a grid  size  of 

256  by  64,  so  the  slow  speed  is  one  of  the  drawbacks  of 
this  method. The  phase  shift  method  does  not  allow  lateral 
variation  of  velocity;  however,  Gazdag  in  his  paper  about 
this  problem  in  1984,  makes  a suggest i on  wh  i ch  allows  for 
lateral  velocity  variation  by  an  interpolation  method,  the 
study  of  which  is  beyond  the  scope  of  this  work. 
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APPENDIX  A 


A Iways-Conergent  Program 


See  E.J.  Murphy,  1986  M.S.  Thesis  U.N.O.  For  Documentation. 


FORTRAN  PROGRAM  FOR  DECONVOLUTION  - DCON L . FOft/V 
DIFFERS  FROM  DCON J : (1)  GM  TRANSFORM  HAS  LARGEST 

ACTUAL  MAGN I TUDE  OF  1 . ( 2 ) FI RST  I TERAT I ON  OF 

MORRISON  HAS  GO  Wl  TH  UNIT  AREA. 

USES  ITERATIVE  TECHNIQUE 

HANDLES  POSITIVE  AND  NEGATIVE  GOING  DATA 

JULY  1983  „ 

READS  DATA  FILE  FOR20 . DAT , FOR  1 9 , AND  FOR 1 8 . DAT 
G( I ) - RESPONSE  (APPARATUS)  FUNCTION 
H ( I ) -BROADENED  FUNCT I ON 

DIMENSION  XX (2048) ,H( 1152,3) ,GS(256) ,P(256) , 

1 LF( 150) ,QAZ( 16000) 

DIMENSION  G( 2048 ) ,GNB/V(257) , I 10UT(23) ,HO(2000) 
COMPLEX  X ( 2048 ) ,GM(257) ,CAPG(2048) ,Z(2048) 

COMMON  X , N I T , NFT , I SU , I ST , NNS , I 10UT , XX , I TTY , SUM3 
EXTERNAL  FFT 

RESPONSE  AND  BROADENED  FUNCTIONS  ARE  READ  FROM 
DATA  FILE 

1-1 

6 FORMAT  (G) 

105  READ (20,6, END- 110)  G( I ) 

7 FORMAT  ( 2G) 

1-1+1 
GOTO  105 
110  NG  - I -1 

I -1 

120  READ( 18, *, END-125)  HO( I ) 

I - 1+1 
GOTO  120 
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125  NHOR I G-  1-1 

NH-NHOR IG 

NHSV  - NH 
DO  45  I - 1 , NH 
45  XX( I ) - 1-1 

C FIRST  MOMENT  CALCULATION 

SUM  = 0. 

SUM 1-0 
SUM3-0 

DO  20  I - 1 , NG 
GS( I )-G( I ) 

SUM 1 -SUM 1 +ABS ( G ( I ) ) 

SUM3=SUM3+G( I ) *G( I ) 

20  SUM  = SUM+G ( I ) 

C F I ND  F I RST  MOMENT  - FIND  ORIGIN 

SUM2  - 0. 

MM- 3 

DO  30  I - 1 -NG 
GO  TO  (27,28,41  ) ,m 

27  SUM2-SUM2+ABS ( I *G( I ) ) 

GO  TO  30 

28  SUM2  - SUM2  + l*G(l)*G(l) 

GOTO  30 

41  SUM2-SUM2  + I *G( I ) 

30  CONT I NUE 

201  FORMAT  ( ' SUM2  - ‘ -G) 

GO  TO  (38-39-42) , MM 

38  SUM2-SUM2/SUM1 
GO  TO  40 

39  SUM2-SUM2/SUM3 
GOTO  40 

42  SUM2-SUM2 / SUM 

40  ISUM2  - SUM2  +0.5 
JSUI -2 

SUM2-1 

NU-20 

C NFT-NUM  OF  POINTS  IN  FOURIER  DOMAIN  FOR 

C FILTER-  MAX  - 2048 

C NIT-NO.  OF  PTS . IN  FOUR.  DOM.  FOR  CALC. 

C MAX  - 256 

I TTY-0 
NFT-2048 
NIT-128 

7 1 FORMAT ( I ) 

DO  80  I -NH+1 - NFT 
80  XX ( I ) - I - 1 

ISU-1 

IF  ( ISU  .EQ.  0)  GOTO  68 
IF  (NU  .EQ.  0)  GO  TO  68 
I ST- 1 


I NVERSE 
OF  GM, 


QUO 
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NNS-0 

IF(NNS.EQ.O)  GO  TO  68 
68  CONT I NUE 

C TAKE  FFT  OF  G 

DO  22  1-1 ,NG 

22  X( I )-CMPLX(G( I ) ,0. ) 

ND-NG+1 

DO  54  I -ND , NFT 
54  X( I )-CMPLX(0. ,0. ) 

CALL  F FT ( NFT , X , CAPG , - 1 . ) 

PHASE  MULT  TO  GET  CAPG  CORRESPONDING  TO  SMALL 
G IN  RIGHT  ORDER 

USE  SHIFT  THEOREM  TO  PUT  ORIGIN  AT  FIRST  MOMENT 
Y-2*3. 1415926* (SUM2-1 ) /NFT 
N2 1 « ( NFT / 2 ) +1 

DO  140  1-1 , NFT  t t . 

IF  (I.LT.N21)  Z( I )-CMPLX(COS( ( 1-1 )*Y) , S I N ( ( 1-1 )*Y) ) 
IF  (I.EQ.N21)  Z( I ) -CMPLX (COS ( ( NFT/ 2 ) *Y ) , 0 . ) 

IF  (I.GT.N21)  Z( I ) -CMPLX ( COS ( ( I -NFT-1 ) *Y)  , 

1 S I N ( ( I -NFT-1 )*Y) ) 

140  CAPG( I )-CAPG( I )*Z( I ) 

DO  37  1-1 . NG 

37  X ( I ) - ( CMPLX ( GS ( I ) , 0 . ) ) 

DO  655  I -ND , N I T 
655  X ( I ) -CMPLX ( 0 . , 0 . ) 

CALL  FFT ( N I T ,X , GM , -1 . ) 

TEMP  - CABS ( GM ( 1 ) ) 

DO  23  I - 2, (NIT/2)  + 1 

23  IF  ( CABS  ( GM  ( I ) ) . GT  . TEMP  ) TEMP  - CABS  ( GM  ( I ) ) 

MGM-1 

DO  24  1-1 , NIT 
XMAG-CABS ( GM ( I ) ) /TEMP 
GOTO  (81,24) ,MGM 

81  IF  ( I .GT. ( (NIT/2)+1 ) ) GOTO  24 

24  GM(  I )-CMPLX(XMAG,0.  )M-1  )**(  1-1 ) 

C TAKE  INVERSE  FFT  OF  GM 

CALL  FFT(NIT,GM,X,+1 . ) 

SCL  -TEMP /SUM 
DO  25  I - 1 ,NIT 
GNBA/(  I ) - REAL  (X(  I ) ) 

25  G( I ) - GNEW(  I ) *SCL 
NG  - NIT  + 1 

M - (NIT/2)  + 1 
GNBV(  1 ) - GNBM  1 ) / 2 . 

GNBA/(  NG ) -GNEW(  1 ) 

G( 1 ) - G( 1 ) /2. 

G( NG)  - G( 1 ) 

C DECONVOLUTION  CALCULATION  PERFORMED  IN  SUBROUTINE 

I JN-1 

GOTO ( 29 , 31 ) , I JN 

31  CALL  DCON ( NG , NH , M , H , GNEW, CAPG , G , SCL , NHOR I G , HO ) 

829  call  exit 
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C 


29 

32 


C 

C 

C 

C 

C 

C 

C 

C 


776 


775 


6 

C 

8 

9 

13 

14 

15 


DO  32  I - 1 , NG 
G(  I ) - GNEW(  I ) 

GOTO  31 
END 

SUBROUT  I NE  DCON ( NG , NH , M , H , G , CAPG , GO , SCL , NHOR I G , HO ) 

SMOOTHING  AND  UNFOLDING  SUBROUTINE 

GEORGE  E.  IOUP  DECONVOLUTION  - MORRISON  SMOTHNG  + 

VAN  CITTERT  UNF 

NS  - NUMBER  OF  SMOOTHINGS,  >-0 

NU  - NUMBER  OF  UNFOLDINGS,  >-0 

M - I OF  THE  PEAK  OF  G( I ) 

NH  - NUMBER  OF  POINTS  OF  H 
NG  - NUMBER  OF  POINTS  OF  G 

DIMENSION  H( 1 152 , 3) ,G(257 ) ,F(1152) ,HI (1152) , 

1 M2 ( 1152) , XX( 2048 ) 

D I MENS  ION  FS ( 2048 ) , M3 ( 1 1 52 ) , K ( 1 1 52 ) , AN ( 200 ) . 

1 SH ( 1200, 1 ) , GO( 2048 ) 

D I MENS  I ON  SPK ( 500 ) , SOU ( 500 ) , I TERAVE ( 1 000 ) , 

1 XSME( 1000) ,QA2( 16000) 

DIMENSION  HP ( 1000) ,VAR( 1000) ,Q(200) , 

1 XMSEAVE( 1000) , LOP ( 1000) 

COMPLEX  CAPG ( 2048 ) , CAPHF ( 2048 ) , X ( 2048 ) 

COMMON  X , N I T , NFT , I SU , I ST , NNS , I 10UT , XX , I TTY , SUM3 


1-1 

READ ( 19,281 , END-775) SPK ( I ) 
1-1+1 

GO  TO  776 
LSPK-l-1 

SUMH-0 . 

SUMH1  - 0. 

SUMH2  - 0. 

DO  6 1-1 , NH 

SUMH1  - H ( I , 1 ) + SUMH1 

SUMH2  - H ( I , 1 ) *H ( I , 1 ) + SUMH2 

SUMH-ABS ( H ( 1,1) ) +SUMH 

ADD  END  ZEROES 

NHN-NH 

XNH  - FLOAT(NH) 

NHEAD  - NG  - M 

NTA I L - M - 1 

NHH1  - NHEAD  + NH  + 1 


TYPE* 
TYPE* 
1 BEGIN 
TYPE* 
TYPE* 
1 END' 
TYPE* 


, ’ TYPE 

D 

, END 


N THE  FOLLOWING  INFORMATION  IN  ONE  LINE' 
HOW  MANY  SNR  CASES  DO  YOU  Wl  SH  7TYPE 
STEP' 


2 ) HOW  MANY  CASES  FOR  EACH  SNR  ? ' 

3)  NUMBER  OF  SMOOTHING  I TERAT I OANS  ? BEGIN, 

4)  RESULT  OF  EACH  SNR  CASE  TO  BE  STARTED 
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661 


333 


664 

C 

16 

17 

18 

19 

20 
21 
22 

23 

24 
55 
60 
C 

65 


1 AT  ? I 40UT ' 

TYPE*  ' 5)  MAX  UNFOLDING  ITERATION  ? NU' 

TYPE*,'  6)  WHICH  CASE  DO  YOUWHISH?  BEG  I N , END , STEP 

type*  ' 7)  output  result  files  decon-id,  smoth-is' 

ACCEPT* , I TRB , I TREN , I TRST , N , I LB , I LE , I 40UT , NU , NB , NE , NSTEP 

DO  660  I TRUESNR- I TRB , I TREN , I TRST 

NH-NHOR I G 

JRAN-777 

CALL  AMIN  I (HO,NH, 1 . ,0, 1 , JRAN , SNR ,QAZ) 

OLDSNR-SNR 

SF- (OLDSNR / I TRUESNR)* *2 

JRAN-777 

DO  661  JN-1 ,N 

CALL  AM  I N I ( HO , NH , SF , IOUT , JN , JRAN , SNR ,QAZ) 

AN ( JN ) -SNR 
P-0. 

DO  333  I A- 1 , N 
P-AN ( I A ) +P 
AVRSNR-P / N 
TYPE* , AVRSNR 
J I J I - 1 

DO  665  INC-1,1,1 
NH-NHORIG 

I QA- ( I NC*NH ) - ( NH- 1 ) 

IWS-INC’NH 


L-1 

DO  664  I ED- I QA , IWS 
H ( L , 1 ) -QAZ ( I ED) 

L-L+1 

wr  i te(2, 1000) ( i , h ( i , 1 ) , i -1 ,nhn) 

DO  19  IH  - 1 .NH 
I HI  - NHH1  - IH 
IH2  - NH  + 1 - IH 
H ( I HI , 1 ) - H{ I H2 , 1 ) 

NH  - NH  + NHEAD  + NTAIL 
DO  22  IH3  - 1, NHEAD 
H ( I H3 , 1 ) - 0.0 
DO  24  IH4  - NHH1 , NH 
H( IH4, 1 ) - 0. 

XNH I - 1./XNH 
ERRH  - 0. 

HI  - RECIPROCAL  ARRAY  OF  H 

DO  69  13  - 1 ,NH 

IF  ( H ( 13,1))  68,67,68 


67 

68 
69 


632 


633 


C 

70 

75 

80 

85 

90 

95 

100 

105 

110 

115 

120 

130 

C130 

C135 

C 


310 

500 


330 


140 

150 

155 

160 

165 

170 

175 

180 

185 


HI ( 13)  - 0. 

GOTO  69 

HI ( 13)  - 1 . /H( 13, 1 ) 
CONT I NUE 

DO  632  IDT-1 , NH 
SH( IDT, 1 )-H( IDT, 1 ) 

DO  666  I L-l LB, I LE 
NS-  I L 

DO  633  IDY-1 , NH 
H ( IDY, 1 ) -SH ( IDY, 1 ) 


PERFORM  THE  SMOOTHINGS 
DO  130  13-1 ,NH 
H( 13,2)  - 0. 

Ml  - 13  - M + 1 
M2( 13)  - MAXO (Ml , 1 ) 

M3 (13)  - Ml  NO ((13  + NG  - M) , NH ) 

K( 13)  - MAXO ( 1 , (2-MI ) ) 

M4  - M2 ( I 3 ) 

M5  - M3 ( I 3 ) 

K 1 - K( 13) 

DO  120  14  - M4,M5 

H ( 13,2)  - H( 14,1)  * G0(K1)  + H( 13,2) 

K 1 - K 1 + 1 
CONT I NUE 

ERRH  - ABS ( ( H ( 13,2)  - H( 13,1)) *H 1(13))  + ERRH 
ERRH  - ERRH  * XNHI 

SKIP  SMOOTINGS  AND  PUT  H BACK  IF  REQUESTED 
IF  ( NS . NE . 0 ) GOTO  500 
DO  310  I - 1 , NH 
H( I ,3)  - H( I , 1 ) 

H( I ,2)  - H ( I , 1 ) 

GOTO  320 
1-1 

I F ( NS . NE . 1 ) GO  TO  140 
DO  330  1-1 ,NH 
H( I , 3 ) -H ( 1,2) 

GO  TO  320 

DO  200  15  = 2, NS 
DO  195  16  - 1 , NH 
H( 16,3)  - H ( 16,2) 

M4  - M2 ( I 6 ) 

M5  - M3 ( I 6 ) 

K 1 - K( 16) 

DO  185  17  - M4,M5 

H ( 16,3)  - ( H ( 17,1)  - H( 17,2) )*G(K1)  + H(I6,3) 
K 1 = K 1 + 1 
H( 16,2)  = H ( 16,3) 


198 


195 

200 

405 

320 

C 

201 


202 


203 

204 


C 


340 


455 

C 

445 


420 


215 

220 

225 

240 

245 

250 

255 

260 

265 


CONT I NUE 
1-15 

CONT I NUE 
FORMAT ( I 5,6X,G) 

CONT I NUE 

I F ( I SU . EQ . 0 ) GO  TO  290 
CALCULATE  INVERSE  FILTERED  F 
DO  201  K2-1 , NH 
X ( K2 ) -CMP LX ( H( K2 , 3 ) ,0.  ) 

K3-NH+1 

DO  202  K4-K3 , NFT 
X( K4 ) -CMPLX( 0 . ,0. ) 

CALL  FFT(NFT,X,CAPHF,-1 . ) 

DO  204  K5  - 1 , NFT 

IF  (CAPG(K5) . EQ.CMPLX(0 . 0 , 0 . 0 ) ) GOTO  203 
CAPHF ( K5 ) - CAPHF(K5)/CAPG(K5) 

GOTO  204 

CAPHF (K5)  - CMPLX( 0 .0,0.0) 

CONT I NUE 

CALL  FFT ( NFT , CAPHF ,X , +1 . ) 

NFT2-NFT / 2 
NIT2-NIT/2 
SUMF-0 

FIND  WHAT  PERCENTAGES  OF  F ARE  IN  VARIOUS  Wl  NDOAG 
DO  340  1-1 , NFT 
FS ( I ) -REAL ( X( I ) ) 

I F ( I .EQ.NIT2)  SUMF1-SUMF 

I F ( I . EQ . (NHN+NIT2) )SUMF3-SUMF 

I F ( I . EQ . NH ) SUMF5-SUMF 

CONT I NUE 

I J-1 

I 1-1 

FORMAT  (G) 

wr  i te( IS, 1000) ( I ,h( i+nhead,3) , i-1 ,nhn) 

XNORM-2 . 3772E+04 
DO  420  I - 1 .NH 
H( I ,2)  - H( I ,2)/XNORM 
H( I , 1 ) - H ( I , 1 ) /XNORM 
H( I ,3)  - H( I ,3) /XNORM 

XTEMP-10. 01**25 
XSME ( I LB)-10. 01**25 
xss-10000 . 

DO  285  19  - 1 ,NU 
ERRF  - 0. 

DO  280  I 10  - 1 , NH 
F( I 10)-H( I 10,2) 

M4  - M2 ( I 1 0 ) 

M5  - M3 ( I 1 0 ) 

K 1 - K { 1 10) 

DO  270  111  - M4.M5 

F ( I 10)  - ( FS ( I 11) — H ( I 11 ,2) ) *G( K 1 ) + F ( I 10) 


270 

C 


199 


K1  - K1  + 1 
POINT  SUCCESSIVE 
H ( I 1 0 , 2 ) -F ( I 10) 

280  CONTINUE 

ERRF  - ERRF  * XNHI 
1-19 

DO  999  J-LSPK+1 ,NHN 
999  SPK(J)-0. 

XMSE-0 . 
suf -0 . 

DO  998  J-1 , NHN 

C TYPE* ,F( J+NIT2) ,SPK( J) 

suf-suf  + f ( j +n i t2 ) 

998  XMSE-XMSE+ ( F ( J+N I T2 ) -SPK ( J ) ) * * 2 

xdf =xss-suf 

c TYPE*,'  ' ,xmse, l9,NS,suf ,xdf 

D I F -XTEMP -XMSE 
I F(DI F . LE.0.001 )QO  TO  990 
I F ( XTEMP . LT . XMSE ) GO  TO  990 
555  XTEMP-XMSE 

xss-suf 

type  937,  xmse ,di f , suf , abs (xdf ) , i 9 
937  f o rma  t(g,2x,f10.7,2x,g,2x,f10.7 ,2x, i 3 ) 

281  FORMAT (2G) 

285  CONT I NUE 

990  CONT  I NUE 

c TYPE* , XTEMP, 19-1 . NS 

XSME ( IL+1 ) -XTEMP 
LOP ( I L+1 )- I 9-1 

I F ( XSME  ( I L+ 1 ) . GT  . XSME  ( I L ) ) GO  TO  291 
1000  f ormat ( 2x , i 3 , lOx , g ) 

WRITE(  id, 1000) ( I , F ( I +N I T2 ) , I - 1 , NHN ) 

290  GO  TO  666 

666  CONT I NUE 

291  TYPE* ,XSME( I L) , LOP( I L) . I L-1 , I NC, AVRSNR ,DI F 

WR I TE ( I 40UT , * ) XSME ( I L ) , LOP ( I L ) , I L- 1 , I NC , AVRSNR , D I F 
I TERAVE ( J I J I ) -LOP ( IL) 

XMSEAVE ( J I J I ) -XSME ( I L ) 

665  JIJI-JIJI+1 

CLOSE ( UN  I T- 1 40UT ) 

I 40UT- I 40UT+1 
SNRAVRG-ALOG ( AVRSNR ) 

PLO-O 

OLP-O 

DO  659  I AVER- 1 ,N 
PLO-PLO+ I TERAVE ( I AVER ) 

659  OLP-OLP+XMSEAVE ( I AVER ) 

AVRG I TER-PLO/ N 
AVRGMSE-OLP / N 

658  FORMAT (2G) 

660  CONT I NUE 


ooooooooo 
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300  RETURN 
END 
C 

SUBROUTINE  FFT ( N , X , Y , S I GN ) 

COMPUTES  FORWARD  OR  I NVERSE  FOUR  I ER  TRANSFORM  FOR  ANY 
SET 

OF  DISCRETE  DATA  POINTS. 

N - NUMBER  OF  DATA  POINTS  - PONER  OF  T\AO 
SIGN:  -1  FOR  A FORWARD  TRANSFORM  AND  +1  FOR  AN 
INVERSE  TRANSFORM 
X - ORIGINAL  DATA 
Y - FOURIER  TRANSFORM  OF  DATA 
BOTH  X AND  Y ARE  COMPLEX  NUMBERS 
COMPLEX  W, X ( 256 ) ,Y(256) 

INTEGER  R 
C CALCULATIONS 

N2  - N/2 
FLTN  - N 

NSTAGE  - I F I X ( ALOG( FLTN ) / ALOG( 2 . ) ) 

PHI2N  - 6 . 2831 85307179586/ FLTN 
DO  3 J - 1 , NSTAGE 
N2J  - N / ( 2*  * J ) 

NR  - N2J 

N I - ( 2*  * J ) / 2 

DO  2 I - 1 ,NI 

IN2J  - ( 1-1 )*N2J 

FLIN2J  - IN2J 

TEMP  - FL I N2J*PH I 2N*S I GN 

W«  CMP  LX ( COS ( TEMP ) , S I N ( TEMP ) ) 

DO  2 R - 1 , NR 

I  SUB  « R + IN2J 

ISUB1  - R + I N2 J * 2 

ISUB2  ISUB1  + N2J 

ISUB3  - I SUB  + N2 

Y(ISUB)  - X ( I SUB  1 ) + W*X ( I SUB2 ) 

Y ( I SUB3 ) - X ( I SUB  1 ) - W*X ( I SUB2 ) 

2 CONT I NUE 

DO  3 R - 1 ,N 

3 x ( R ) - Y ( R ) 

C FACTOR  OF  (1/N)  IN  INVERSE  TRANSFORM 

IF  ( S I GN . LT . 0 . ) GOTO  5 
DO  4 R - 1 ,N 

4 Y(R)  - Y( R ) /FLTN 

5 RETURN 
END 


SUBROUT  I NE  AM  I N I ( H , NH , SF , I OUT , JN , JRAN , SNR ,QAZ ) 

DIMENSION  H ( 1 000  ) , HP  ( 1 000  ) , VAR  ( 1 000  ) , Q ( 1 000 ) , QAZ  ( 1 0000  ) 
1 5 FORMAT  ( G ) 

RMS  - 0. 
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AMAX  - ABS ( H ( 1 ) ) 

SD  - SQRT(SF) 

DO  230  I - 1 , NH 

IF  (ABS(H( I ) ) .GT.AMAX)  AMAX  - ABS ( H ( I ) ) 
CALL  GAUSS ( SD , H ( I ) , HP ( I ) , JRAN ) 

RMS  - ( HP ( I ) - H(l))**2  + RMS 
230  CONTINUE 

RMS  - SORT ( RMS / ( NH+ 1 ) ) 

SNR  = AMAX /RMS 

C WRITE  ( I OUT ,15)  (HP ( I ) , I -1 , NH ) 

IBG=(NH*  JNMNH-1  ) 

I ED-NH*  JN 
L-1 

DO  888  ICA- IBG. I ED 
QAZ (ICA) =HP ( L ) 

888  L-L  + 1 

RETURN 
END 

SUBROUTINE  GAUSS ( S , AM , V , JRAN ) 

A-0.0 

DO  1 1-1,12 
1 A-A+RAN ( JRAN ) 

V- ( A-6 . 0 ) *S+AM 

RETURN 

END 


Reeblurring  Program 


See  R.  Powe,  1985  M.S.  Thesis  U.N.O.  For  Documentation. 


C 

C 


400 


=ORTRAN  PROGRAM  REBLUR  - FOR  DECONVOLUTION  OF  DATA  USES 
ITERATIVE  TECHNIQUE  - READS  DATA  FILES  FOR20  & FOR21 
DIMENSION  H( 2048 ,3) ,G( 2048 ) , GN ( 2048 ) , I 10UT ( 40 ) , 

I L I ST ( 1 00000 ) , M2  ( 2048 ) , K ( 2048 ) , V ( 2048 ) , AU ( 2048 ) , HN ( 2048 ) 
DIMENSION  HI (2048) ,M3(2048) ,DATA(4096) , IOT( 100) 

D I MENS  ION  F ( 2048 , 3 ) , SPK ( 1 000 ) , SQU ( 1 00000 ) , I T ( 1 00 ) , QAZ ( 1 60C 
TYPE  400 

FORMAT ( ' NUMBER  OF  I TERAT ION  ’ $ ) 

ACCEPT  * , NUNF 


on  ooo  ooo  ooo  ooo 
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NHS-0 
TYPE  401 

401  FORMAT ( ' # OF  PTS . IN  FOURIER  DOMAIN  FOR  FILTER  '$) 
ACCEPT  * , NFT 

NFT-2048 
TYPE  402 

402  FORMAT ('  ADD  ON  ZEROS  ? :YES-1  ; NO-O  '$) 

ACCEPT  * , NEXZ 

NEXZ-1 
TYPE  403 

403  FORMAT ('  # OF  NON-STANDARD  ITERATIONS  '$) 

ACCEPT  * , NNS 

NNS-0 
TYPE  404 

404  FORMAT ( ' TYPE  IN  NON-STANDARD  ITERATIONS  '*) 

ACCEPT  * , ( I 10UT ( I ) , 1-1 , NNS) 


TYPE* , ' INPUT  FILE  IF-?' 
ACCEPT* , IF 

1-1 


555 

READ( 1 1 ,554, END-553) 1 T ( 1 ) 

554 

1-1+1 
G0T0555 
FORMAT (13) 

553 

LIT- 1-1 

552 

DO  552  J-1 ,LIT 
IF-ITI J) 

560 

1-1 

READ( 12, 554, END-561 ) 

1 OT ( 1 ) 

561 

1-1+1 

GOTO560 

LIOT-l-1 

562 

DO  562, J-1 ,LIOT 
1 30UT- 1 OT ( J ) 

121 

1-1 

READ ( 9 , 281 , END-125) 

QAZ  ( 1 

125 

1-1+1 
GO  TO  121 
NH-I -1 

I BG- I F*379-378 
I ND- I F*379 
L-1 

DO  863  J-IBG, IND 
H ( L , 1 ) -QAZ ( J ) 

863  L-L+1 

NH-IND+1-IBG 


ND-NH 
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1-1 

129  READ (15,281, END- 1 28 ) G( I ) 

1-1+1 

GO  TO  129 
128  NG- 1-1 

C TYPE  * , NG 

1-1 

115  READ( 14, 114, END-116)  SPK(I) 

114  FORMAT ( G ) 

1-1+1 

GO  TO  115 

116  LE-l-1 

C TYPE  * , LE 

C DATA  ( ILIST(L) ,L-1 . 3 ) / 100 , 20 , 50/ 

DO  666  J-1 , NUNF 
666  I L I ST ( J ) — J 

DO  10  J-1 ,NG 
10  V( J)=G(NG-J+1 ) 

NG1-NG 

LAU-NG+NG-1 

CALL  FOLD ( NG , V , NG , G , LAU , AU ) 
IF(LAU.EQ.NFT)  GO  TO  15 
DO  18  I -LAU+1 , NFT 
18  AU ( I ) -0 . 

15  DO  5 J-1 , NFT 

DATA( 2*  J-1 ) -AU ( J ) 

5 DATA( 2*  J ) -0 . 0 

CALL  FFT(NFT,-1 ,DATA,ZXMAX) 

C TYPE  * , ZXMAX 

ABAS-0 . 

DO  1 I - 1 , LAU 
GN( i )-AU( I ) /ZXMAX 

1 ABAS-ABS ( GN ( I ) ) +ABAS 

C TYPE  *, 'ABAS-' , ABAS 

NHN1-NH+NG-1 

CALL  FOLD ( NH , H , NG , V , NHN 1 , HN ) 

DO  2 J-1  , NHN1 

2 H(J,1)-HN(J) /ZXMAX 
M-NG 

NG-LAU 

NH-NHN1 

NHN-NH 

XNH-NH 

NHEAD-0 

NTA I L-0 

I F ( NEXZ . EQ . 0 ) GO  TO  30 

NHEAD-NG-M 

NTA I L-M-1 

NHH 1 -NHEAD+NH+ 1 
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19 


24 

30 

C 


130 


120 

131 


C 


185 

195 

C200 

200 

48 


210 

175 

211 

212 


DO  19  IH-1 ,NH 
IH1-NHH1-IH 
I H2-NH+1 - I H 
H ( I HI , 1 )-H(  I H2 ( 1 ) 

NH-NH+NHEAD+NTAI L 
DO  22  IH3-1 , NHEAD 
22  H(IH3,1)-0. 

DO  24  I H4-NHH1 , NH 
H( IH4, 1 )-0. 

XNH 1-1 . /XNH 

TYPE  * , XNH I , NHEAD , NTA I L 
ERRH-0. 

DO  130  13-1 ,NH 

M1-I3-M+1 

M2 ( I 3 ) -MAXO (Ml , 1 ) 

M3 ( I 3 ) -M I NO ( ( I 3+NG-M ) , NH ) 

K ( I 3 ) -MAXO ( 1 , (2-MI ) ) 

CONT I NUE 

I F ( NHS . EQ . 0 . ) GO  TO  210 
DO  131  131-1 , NH 
M4-M2 ( 131 ) 

M5-M3 (131) 

K 1 -K ( 131 ) 

DO  120  I 4-M4 ,M5 

H( 131 ,2)-H( 14. 1 )«GN(K1 )+H( 131 .2) 

K1-K1+1 

ERRH«ABS(H( 131 ,2)-H( 131,1) ) +ERRH 
ERRH-ERRH*XNH I 
1-1 

WRITE (63, 48)  I , ERRH 
DO  200  I 5-3, NHS 
ERRH-0.0 
DO  195  16-1 .NH 
H ( 16,3) — H ( 16,2) 

M4-M2 (16) 

M5-M3 (16) 

K1-K( 16) 

DO  185  I 7-M4 ,M5 

H( I6,3)-(H( 17, 1 )-H( 17,2) )*GN(K1 )+H( 16,3) 
K1-K1  + 1 

ERRH-ABS (H( I 6 , 3 ) -H( 16,2) ) +ERRH 

ERRH-ERRH*XNH I 

WRITE (63, 48)  I 5 , ERRH 

CONT I NUE 

FORMAT ( I 5.6X.G) 

CLOSE (UN  IT-63) 

GO  TO  211 
D0175  J- 1 , NH 
H ( J , 3 ) -H ( J , 1 ) 

DO  212  I 1 2—1 , NH 
F ( I 12,2) — H ( I 12,3) 

F(  I 12, 1 )-H( 112,3) 


C I OUT-22 

I 20UT-50 
I J-1 
I 1-1 

DO  285  19-1 , NUNF 
ERRF-0 . 

DO  280  I 10-1 , NH 
F ( I 10,3)-F( I 10, 1 )+F( I 10,2) 

M4-M2 ( 110) 

M5-M3 (110) 

K 1-K ( I 10) 

DO  270  I 1 1 -M4 , M5 

F ( I 10,3)—  F(  I 11 , 2 ) *GN  { K 1 )+F(  I 10,3) 

270  K1-K1+1 

ERRF-ABS (F( t 10,3)— F( I 10,2) ) +ERRF 
280  CONT I NUE 

DO  286  1=1, NH 
286  F ( I , 2 ) -F ( 1,3) 

1 — 19 

I F ( l . NE . I L I ST ( II  ) ) GO  TO  282 
C WR  I TE  ( I OUT  , 281  ) ( F ( I Z+NHEAD , 3 ) , I Z- 1 , NHN ) 

SOU ( 1 )-1000 
DO  999  l-LE+1 , ND 
999  SPK ( I ) —0 . 

XMSE-0 . 

DO  998  I -NG , NHN+NHEAD 
998  XMSE-XMSE+ ( F ( I , 3 ) -SPK ( I -NG+ 1 ) ) * * 2 

C WRITE(110,997)XMSE 

SQU( 19+1 ) -XMSE 
DIF-SQU( 19+1 ) -SOU ( 19) 

IF(SQU( 19) .LT.SQU( 19+1 ) )GOTO  990 
C TYPE  997 , XMSE , I 9 

997  FORMAT ( ' XMSE- ' ,G, ' I TERAT I ON ' , I 5 ) 

SUM-0. 

DO  299  I JK-1 , NHN 
299  SUM-SUM+F ( I JK+NHEAD- 1,3) 

C 1-19 

C IF( I .NE. I L I ST ( I I ) ) GO  TO  282 

C WRITE( IOUT,281)  ( F ( I Z+NHEAD , 3 ) , I Z- 1 , NHN ) 

C TYPE  997, XMSE, ERRF 

C TYPE  * , I 9, SUM 

C CLOSE (UN  IT- I OUT) 

C I OUT - I OUT + 1 

I l-l  1+1 

282  IF(NNS.EQ.O)  GO  TO  285 

I F ( I . NE . I 10UT ( I J ) ) GO  TO  285 
281  FORMAT (E50. 4) 

C WR  I TE ( I 20UT , 281 ) ( F ( I Z+NHEAD , 3 ) , I Z- 1 , NHN ) 

C TYPE  997, XMSE, ERRF 
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SUM-0 . 

DO  298  UK  - 1 , NHN 
298  SUM-SUM+F ( I JK+NHEAD- 1,3) 

C TYPE  * , I 9, SUM 

C CLOSE ( UN  I T- I 20UT ) 

C I20UT-I20UT+1 

I J-IJ+1 

285  CONTINUE 

GOTO  991 

990  TYPE* , XMSE , ' ',19,'  ' , I F , ' ',DIF,'  ',1 

JD1-1 

WRITE( I 30UT , * ) XMSE , I 9 , I F , D I F , JD1 

991  TYPE*, XMSE,'  ',19,'  ' , I F , ' ' , D I F , ',0 

ID-0 

WR I TE ( I 30UT , * ) XMSE ,19, IF, DIF, ID 
C WR I TE ( 60 , 28 1 ) (H( I Z+NHEAD , 3 ) , I Z= 1 , NHN ) 

C993  WRITE (22, 114) (F( I Z+NHEAD, 3) , I Z-1 , NHN ) 

993  ERRF=ERRF*XNH I 

C TYPE  * , ERRF 

IF-IF+1 

C I F ( I F . GT  . 90  ) GOTO  994 

WRITE( 11 ,554) IF 
I 30UT- I 30UT+ 1 
WR I TE ( 1 2 , 554 ) I 30UT 
G0T0992 

C994  IF-IT(I) 

C I 30UT - I OT ( 1 ) 

C WRITE(91 ,554) I30UT 

C WRITE! 92, 554) IF 

992  END 

SUBROUTINE  FOLD( LA , A , LB , B , LC, C) 
DIMENSION  A (LA) ,B(LB) ,C(LC) 

CALL  ZERO( LC,C) 

DO  1 1-1 , LA 
DO  1 J-1 , LB 
K-l+J-1 

1 C(K)-C(K)+A( I )*B( J) 

RETURN 

END 

SUBROUTINE  ZERO(LX,X) 

DIMENSION  X ( LX) 

IF(LX.LE.O)  RETURN 
DO  1 1-1 , LX 
1 X(l)-0.0 

RETURN 
END 

SUBROUT  I NE  FFT ( NN , I S I GN , DATA , ZXMAX ) 


mo)  tn  oj  ro 
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D I MENS  I ON  DATA ( 4096 ) , XMAG ( 2048 ) 

COMPLEX  G1(2048) 

N-2*NN 

J-1 

DO  5 1-1 ,N, 2 
I F ( l-J) 1 ,2,2 
1 TEMPR-DATA( J) 

TEMP  I -DATA ( J+1 ) 

DATA( J ) -DATA( I ) 

DATA( J+1 ) =DATA( 1+1 ) 

DATA( I ) -TEMPR 
DATA( 1+1 ) -TEMP  I 
M-N/2 

I F ( J-M) 5 ,5,4 
J = J-M 
M-M/2 

I F ( M- 2 ) 5 , 3 , 3 
J-J+M 
MM AX -2 

I F (MMAX-N ) 7 , 10,10 
I STEP-2*MMAX 

THETA-6. 2 831 853 /FLOAT{  ISIGN‘MdAX) 

SI  NTH-SIN (THETA/ 2) 

WSTPR— 2*S  I NTH*S  I NTH 
WSTPI-SIN(THETA) 

WR-1  . 

WI-0. 

DO  9 M- 1 , MMAX , 2 
DO  8 I -M , N , I STEP 
J- I +MMAX 

TEMPR-WR‘DATA( J)-WI  *DATA( J+1 ) 

TEMP  I -WR ‘DATA (J+1  )-AA/l  *DATA(  J ) 

DATA( J )-DATA( I ) -TEMPR 
DATA( J+1 )-DATA( I +1 )-TEMP I 
DATA ( I )-DATA( I ) +TEMPR 

8 DATA ( I + 1 ) -DATA ( I + 1 ) +TEMP I 
TEMPR  -Wl 

WR^R*V^TPR-WI  *W5TP  I +WR 

9 Wl  -Wl  *\A6TPR+TEMPR  *W5TP  I +WI 
MMAX- I STEP 

GO  TO  6 

10  DO  30  1-1 ,NN  , 

30  XMAG(  I ) -SORT  ( (DATA(2*  1-1  ) ) “2+(DATA(2*  I ) )“2) 

2XMAX-0 . 

DO  20  1-1 , NN 

I F ( XMAG ( i ) . GE . ZXMAX ) 2XMAX-XMAG( i ) 

20  CONT I NUE 

DO  40  K-1 ,NN 

40  G1 (K)-CMPLX(DATA(2*K-1 ) , DAT A ( 2 * K ) ) 

RETURN 

END 


LS  Program 
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See  R Powe , 1985  M.S.  Thesis  U.N.O.  For  Documentation. 


C PROGRAM  INF  I LP . FOR  - 21  MAR  85 

DIMENSION  H ( 1 1 00 ) , F 1 ( 250 ) , AB ( 1 1 00 ) , ABR (1100) 

D I MENS  ION  B ( 1 00 ) , C ( 250 ) , F ( 1 000 ) , C2 ( 2300 ) , HN (11 00 ) 
DIMENSION  F2( 1000) ,F3( 2000) ,SS( 1000) ,SPK( 1000) 
REAL  A ( 1 00 ) ,W(  1 000 ) . V ( 1 000 ) , P ( 1 000 ) 

REAL  LAP 
1=1 

888  READ (19,62. END-887 ) SPK ( I ) 

1 = 1+1 
G0T0888 
887  LS- I - 1 

TYPE*, ' INPUT  FILE-?' 

ACCEPT* , IF 
1=1 

55  READ( IF, 62, END-120)  H< I ) 

1 = 1+1 

GO  TO  55 

120  LH-l-1 
1-1 

56  READ(20, 62, END-121 ) A( I ) 

1 = 1 + 1 

GO  TO  56 

1 2 1 LA- I - 1 

C TYPE  100 

Cl 00  FORMAT ( 1 TYPE  IN  N-F I LTER  LENGTH  ’ ) 

C ACCEPT  * , N 

N-999 
TYPE  900 

900  FORMAT ( ' NOISE  IN  DATA  : YES-1 ;NO=0  ') 

ACCEPT  * , N I D 
C N I D- 1 

I F ( N I D . NE . 1 ) GO  TO  190 

1-1 

35  READ (21 .62, END-36)  HN ( I ) 

1 = 1+1 

GO  TO  35 

36  Z1-HN ( 1 ) 

DO  90  J-1.LH 
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90 

92 

93 

200 

C 

94 
190 

10 

C 

20 

C 

C 

C 

C30 

31 

95 

96 

66 

37 

99 

32 

59 


AB ( J ) =H( J )-HN ( J ) 

Z1-AB(1) 

D092  1-1 , LH 

ABR ( L ) -AB ( LH-L+1 ) 

LC2-2*  LH- 1 

CALL  FOLD ( LH , AB , LH , ABR , LC2 , C2 ) 
Q1-C2 ( LH) 

DO  93  K-1 ,N 
F2 ( K ) -C2 ( LH+K- 1 ) 

T 1 -F2 ( 1 ) 

TYPE  200 

FORMAT  ( ' TYPE  I N XNORM ' ) 
ACCEPT  * , XNORM 
XNORM- 1 6 \ 

DO  94  K=  1 , N 
F2(K)-F2(K) /XNORM 
LB-LA 
Z-A( 1 ) 

DO  10  1 - 1 , LA 
B ( I )-A(LA-( 1-1 ) ) 

CONT I NUE 
LC-LA+LB- 1 

CALL  FOLD ( LA , A , LB  , B , LC , C ) 
Q-C(LA) 

TYPE  * ,Q1 ,Q 
DO  20  1-1, LA 
F 1 ( I ) -C  ( LA+  ( l-D  ) 

CONT I NUE 
T-F 1 ( 1 ) 

IF(NID.NE. 1 ) GO  TO  31 
DO  30  1-1 , LA 
F1( 1 )-F1(  I )/LA 
CONT I NUE 
T3-T+T1 

I F ( N I D . NE . 1 ) GO  TO  37 
DO  95  J- 1 , LA 
F ( J ) - ( F 1 ( J ) +F2 ( J ) ) 

DO  96  J-LA+1 , N 
F ( J ) -F2 ( J ) 

T4-F ( 1 ) 

Q-T4 

DO  66  K-1  ,N 

F(K)-F(K)/T4 

GO  TO  32 

DO  99  1-1 , LA 

F ( I ) -F 1 ( I )/T 

CALL  LEVREC(F  ,W,V,N) 

EN-0 . 

DO  59  1-1 , LA 
EN-A( I ) * *2 . +EN 
LAP-9. 0068E+03 
DO  40  I - 1 , N 
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p ( | ) «W(  l)*(1./V(N))*(1./Q)* LAP 
40  CONT I NUE 

LF3-LH+N-1 

C CALL  FOLD ( L A , A , N , P , LC2 1 , C2 1 ) 

CALL  FOLD(LH,H,N,P,LF3,F3) 
ZT-F3 ( 1 ) 

C TYPE  * ,ZT,Q,Z1 ,1,11 ,T3 

C \Afi  ITE(45,63)  ( F3 ( J ) . J- 1 , LF3 ) 

63  FORMAT ( 8 ( 1 PE  1 5 . 6 ) ) 

CLOSE (UNIT =45 ) 

C TYPE  * ,EN,LAP,A( 1 ) ,V(N) 


13 

62 

C 

150 


130 


140 

12 


2 


3 


4 

5 
C 

345 


DO  13  K= 1 , LF3 
Vtf!ITE(22,*)  F3(K) 

FORMAT (G) 

WRITE (52, 62) (C21 ( I ) .1-1 , LC2 ) 

DO  150  I -LS+1 , LH 
SPK ( I )=0. 

XMSE-0. 

DO  130  1-1, LH 

XMSE-(F3( I ) -SPK ( I ) )**2+XMSE 
TYPE  140 ,XMSE 

TYPE* , 'OUTPUT  FILE  FOR  XMSE  ?' 

ACCEPT* , IOT 

WR I TE ( I OT , * ) XMSE 

FORMAT ( ' XMSE-  ' ,G) 

END 


SUBROUTINE  LEVREC(  F ,W,  V , N ) , _ . 

REAL  F ( 1 000 ) ,W(  1 000 ) , R ( 1 000 ) , V ( 1 000 ) , D ( 1 000 ) , E ( 1 000 ) 


W(  1 ) - 1 
V( 1 )-1 
D( 1 ) -F ( 1 ) 
DO  2 K-2 , N 
D( K ) -0 . 0 
DO  5 J-2 , N 


EE-0.0 


DO  3 I -2 , J 
EE-EE+F ( I ) *W(  J-l+1 ) 

E ( J ) -EE 

R ( J ) -E ( J ) / V( J- 1 ) 

V( J)-V( J-1 )-(E( J)*R( J) ) 

DO  4 l-1,J 

W(  I )-D( I )-(R(J)*D( J+1-1  ) ) 
DO  5 1-1 , J 
D(  I )=W(  I ) 

WRITE (47, 345)  (W(J).J-1,N) 
CLOSE (UN  IT-47) 

FORMAT ( 8 ( 1PE15 . 6 ) ) 

RETURN 

END 
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SUBROUTINE  FOLD ( LA , A , LB , B , LC , C ) 

D I MENS  I ON  A ( LA ) , B ( LB ) , C ( LC ) 

LC-LA+LB-1 

CALL  ZERO(LC,C) 

DO  1 I - 1 , LA 
DO  1 J-1 .LB 
K-l+J-1 

1 C(K)=C(K)+A( I )*B( J) 

RETURN 

END 

SUBROUTINE  ZERO ( LX, X) 

DIMENSION  X( LX) 

IF(LX.LE.O)  RETURN 
DO  1 1*1 , LX 
1 X( I ) -0 . 0 

RETURN 
END 

SUBROUTINE  FFT ( NN , I S I GN , DATA ) 
DIMENSION  DATA (4100) 

N«2*NN 

J-1 

DO  5 1-1 ,N,2 
I F ( I — J ) 1 , 2 , 2 

1 TEMPR-DATA( J ) 

TEMP  I -DAT A ( J + 1 ) 

DATA( J )-DATA( I ) 

DATA( J+1 )-DATA( 1+1) 

DATA( I ) -TEMPR 
DATA ( 1+1 ) -TEMP  I 

2 M-N/2 

3 I F ( J-M) 5 ,5,4 

4 J-J-M 
M-M/2 

I F (M-2 ) 5 , 3 , 3 

5 J— J+M 
MMAX-2 

6 I F (MMAX-N ) 7 , 10 , 10 

7 I STEP-2 *IVSVIAX 

THETA-6 .2831 853/ FLOAT ( I S I GN  *MMAX ) 
SI  NTH-SIN (THETA/ 2. ) 

W5TPR— 2 . *S  I NTH*S  I NTH 
VVSTPI-SIN(THETA) 

WR-1 

WI-0 

DO  9 M- 1 , MMAX , 2 
DO  8 l-M  , N,  I STEP 
J- I +MMAX 

TEMPR-WR*DATA( J)-WI  *DATA( J+1 ) 

TEMP  I -VVR *DATA  ( J + 1 ) +WI  *DATA(  J ) 
DATA ( J ) -DATA ( I ) -TEMPR 
DATA ( J+ 1 ) -DATA ( I +1 ) -TEMP  I 
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DATA ( I ) -DATA ( I ) +TEMPR 

8 DATA( I +1 ) »DATA( I +1 ) +TEMP I 
TEMPR-W* 

WR-WR*V£TPR-WI  *WSTP  I +WR 

9 Wl  -Wl  *W5TPR+TEMPR  *\A£TP  I +WI 
MMAX- I STEP 

GO  TO  6 

10  RETURN 
END 


Gaussian  Distributed  Noise  Generator  Program 


See  J.  Lee  I ere , 1984  M.S.  Thesis  U.N.O.  For  Documentation 


C PROGRAM  CNSGEN . FOR  - PROGRAM  TO  GENERATE  CONSTANT  NOISE 

C PRODUCES  GAUSSIAN  DISTRIBUTED  NOISE  ON  POS I T I VE/NEGAT I VE  DATA 
D I MENS  ION  H ( 1 0000 ) , HP ( 1 0000 ) , VAR ( 1 0000 ) , Q ( 1 00 ) 

C READ  IN  H FILE 

1-1 

5 READ  ( 18, 15, END-7)  H( I ) 

1-1  + 1 
GOTO  5 

7 NH  - I - 1 

TYPE  10 

10  FORMAT  ('  SCALE  FACTOR?  IULMT?  '$) 

ACCEPT* , SF , IULMT 
15  FORMAT  (G) 

I OUT-9 
JRAN-777 

I BEG  I N- 1 

DO  16  L- I BEGIN, IULMT 
RMS  - 0. 

AMAX  - ABS ( H ( 1 ) ) 

SD  - SQRT(SF) 

DO  230  I = 1 , NH 

IF  (ABS(H( I ) ) .GT.AMAX)  AMAX  - ABS ( H ( I ) ) 

CALL  GAUSS ( SD , H ( I ) , HP ( I ) , JRAN ) 

RMS  - ( HP ( I ) - H( I ) ) * *2  + RMS 
230  CONTINUE 

C TYPE*, AMAX 

RMS  - SORT ( RMS/ (NH+1 ) ) 
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C 


C235 

20 


16 

333 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


IF  (RMS.EQ.O. ) GOTO  235 


SNR  - AMAX/RMS 
Q( L ) -SNR 

TYPE  20 , SF,  RMS , SD,  SNR 
FORMAT  ('  SF  - ' ,G, ' RMS  - ' ,G, ' SD 
TYPE* , SNR, L 

WRITE  ( I OUT ,15)  (HP( I ) , 1-1 ,NH) 


,G, / ' SNR  - ' , G) 


CONT I NUE 
P-0. 

DO  333  J-1 , IULMT 
P=Q( J ) +P 
R=P / IULMT 
TYPE* , R 
END 

Subroutine  GAUSS 


PURPOSE 


Computes  a normally  distributed  random  number  with 
a given  mean  and  standard  deviation 


USAGE 


CALL  GAUSS ( S , AM , V ) 


DESCRIPTION  OF  PARAMETERS 

S - the  desired  standard  deviation  of  the  normal 
d i st r i but  ion 

AM  - the  desired  mean  of  the  normal  distribution 
V - the  value  of  the  computed  normal  random  variable 

REMARKS 


This  subroutine  uses  a machine  specific  uniform 
random  number  generator 


METHOD 

Uses  12  uniform  random  numbers  to  compute  normal 
random  numbers  by  central  I imi  t theorem.  The  resul t 
is  then  adjusted  to  match  the  given  mean  and  standard 
eviation.  The  uniform  random  numbers  computed  within 
he  subroutine  are  computed  by  the  FORTRAN  "RAN  function. 


SUBROUT  I NE  GAUSS ( S , AM , V , JRAN ) 
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A-0 . 0 

DO  1 1-1,12 
1 A-A+RAN ( JRAN ) 

V- ( A-6 . 0 ) *S+AM 
RETURN 
END 


U9.  00 


U9.  00 


DECONVOLUTION  RESULT 
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O 

II 

O 


o 

o 


03 

00 

r- 

n 

cc 

03 


r 

02  ' 1 


OB  J 0 


30111 1 IdWt) 


.00  U9.00  97.00  1U5. 00  193.00  2UI . 00  289.00  337.00  385.00 


oo  ’6n 


GO  ’ 1 1 - LQ  ' LZ-  S9  * fifi- 

3ani  iidwti 


DECONVOLUTION  RESULT 


260 


o 

o 

LO 


I cn 


/.2M  Z.  6 ‘ 0 Z 9 ‘ 0 Z£’0  ^O'O  £8*0- 

gannidwd 


TIME 


TABLE  SNR-150  REBLURRING  PROCEDURE 

MEAN  SOURED  ITERATION  CASE  DIFFERENCE 

ERROR  NUMBER  NUMBER  ERROR 


1 . 846286 

23920 

1 .944813 

24955 

2.085680 

23377 

1 .817714 

26944 

1 . 789659 

24631 

1 . 735373 

27542 

1 . 736844 

24850 

1 .533371 

25280 

1 . 633530 

26106 

1 . 558898 

24910 

1.450310 

26241 

1 .802192 

23828 

1 . 948270 

23732 

1 .785398 

28278 

1 .538207 

27742 

1 . 826279 

22206 

1 . 468594 

23599 

1.744612 

31224 

1 .903516 

28178 

1 .994772 

22562 

1 . 948592 

24223 

1 . 760069 

29483 

1.769518 

26532 

1 .834149 

25078 

1 .717353 

25692 

2.168625 

25169 

1 .496181 

26215 

1 .779979 

29312 

1 .931072 

25359 

1 . 633508 

26066 

1 .929668 

25713 

1 . 773549 

23485 

1 . 872428 

25239 

2.11  4362 

21246 

1 .551219 

27702 

1 . 732943 

26454 

1 . 820087 

25655 

2.010833 

23984 

1 . 926793 

28354 

1 . 644376 

25567 

1 .622761 

27002 

1 . 825098 

24169 

2 . 034097 

24479 

1.677921 

27073 

1 .564785 

23186 

1 . 875742 

22889 

1 . 992826 

26103 

1.714245 

25844 

1 .866515 

24584 

2.047117 

22873 

1 

0. 1 192093E-06 

2 

0.3576279E-06 

3 

0. 23841 86E-06 

4 

0 . 5960464E-06 

5 

0.3576279 E-06 

6 

0. 1 192093E-06 

7 

0.2384186E-06 

8 

0.11 92093E-06 

9 

0. 23841 86E-06 

10 

0. 23841 86E-06 

11 

0. 23841 86E-06 

12 

0. 23841 86E-06 

13 

0.9536743E— 06 

14 

0. 1 192093E-06 

15 

0.4768372E-06 

16 

0 . 8344650E— 06 

17 

0. 1 192093E— 06 

18 

0. 1 192093E— 06 

19 

0. 23841 86E-06 

20 

0.7152557E-06 

21 

0.3576279E— 06 

22 

0 . 5960464E— 06 

23 

0. 23841 86E-06 

24 

0. 23841 86E-06 

25 

0. 3576279 E-06 

26 

0. 23841 86E-06 

27 

0.4768372E— 06 

28 

0.11 92093E— 06 

29 

0.357 6279 E-06 

30 

0.3576279E-06 

31 

0. 1 192093E-06 

32 

0.2384186E— 06 

33 

0. 1 192093E— 06 

34 

0. 1 192093E-05 

35 

0.3576279E— 06 

36 

0.2384186E-06 

37 

0.11 92093E— 06 

38 

0.7152557E— 06 

39 

0. 23841 86E-06 

40 

0.11 92093E-06 

41 

0.2384186E— 06 

42 

0. 23841 86E-06 

43 

0.7152557E-06 

44 

0.7152557E— 06 

45 

0 . 3576279E— 06 

46 

0 . 3576279E— 06 

47 

0 . 5960464E— 06 

48 

0.2384186E— 06 

49 

0. 1 192093E— 06 

50 

0. 23841 86E-06 

TABLE  SNR=40  REBLURRING  PROCFDURE 

MEAN  SQURED  ITERATION  CASE 

ERROR  nubmer  number 


DIFFERRENCE 

ERROR 


5.961245 

2503 

6.193612 

2284 

6.198378 

2238 

6 . 420467 

2057 

6.148540 

2387 

5.809091 

2814 

5.592218 

2789 

5.480690 

3111 

5.942793 

2839 

5.437190 

3542 

5.572175 

3640 

5.679753 

2949 

6.083924 

2215 

6.161426 

2400 

5.346950 

3286 

5.542289 

2742 

5.190651 

3376 

6.073435 

2383 

6 . 480808 

1876 

6.152118 

2231 

5.958267 

2463 

6.179560 

2314 

5.834317 

2398 

5.797348 

2463 

6.170175 

2762 

6.034193 

2096 

6.128828 

2196 

5.837134 

2816 

5.816765 

2757 

5 . 637455 

2921 

6.272642 

2038 

5 . 855428 

2588 

6.192252 

2354 

6.577339 

1820 

5.801851 

2619 

5.768342 

2363 

5.962425 

2185 

6.161114 

2227 

6.094741 

2043 

6.018786 

2274 

6 . 056442 

2324 

5.930193 

2630 

5.754459 

2226 

5 . 953099 

2346 

5.809452 

2396 

6.036535 

2167 

5.785913 

2658 

5.830714 

2524 

5.912695 

2709 

5 . 627799 

2885 

1 

0.3814697E-05 

2 

0.4768372E-06 

3 

0.2861023E— 05 

4 

0.143051  IE-05 

5 

0.2861023E-05 

6 

0.143051  IE-05 

7 

0.2384186E-05 

8 

0.4768372E-06 

9 

0.143051  IE-05 

10 

0.9536743E— 06 

11 

0 . 4768372E-06 

12 

0 . 3337860E— 05 

13 

0 . 4768372E-06 

14 

0. 1907349E-05 

15 

0. 23841 86E-05 

16 

0.4768372E— 05 

17 

0 . 4768372E— 06 

18 

0.9536743E-06 

19 

0.2861023E-05 

20 

0.9536743E— 06 

21 

0 . 4768372E-06 

22 

0.3814697E-05 

23 

0. 1907349E— 05 

24 

0.9536743E— 06 

25 

0.2384186E— 05 

26 

0 . 9536743E-06 

27 

0 . 4768372E— 06 

28 

0.4768372E-06 

29 

0 . 3337860E-05 

30 

0 . 9536743E-06 

31 

0.4768372E-06 

32 

0.143051  IE-05 

33 

0 . 9536743E— 06 

34 

0. 95367 43E-06 

35 

0. 23841 86E-05 

36 

0.143051  IE-05 

37 

0 . 4768372E-06 

38 

0.4768372E— 06 

39 

0 . 9536743E— 06 

40 

0.4768372E— 06 

41 

0.4768372E— 06 

42 

0.1 43051  IE-05 

43 

0.2861023E-05 

44 

0.4768372E— 06 

45 

0 . 1 907349E— 05 

46 

0.143051  IE-05 

47 

0 . 5722046E-05 

48 

0. 1 907349 E-05 

49 

0 . 4768372E— 06 

50 

0 . 9536743E— 06 

TABLE 

MEAN  SQURED 
ERROR 


8.683937 

9.201220 

8.807170 

9.152944 

8.610974 

8.831291 

9 . 000823 

8.736782 

8.725792 

8.738132 

8.719207 

8.819816 

8.761172 

8.805182 

8.518571 

8 . 368540 

8.503117 

8.753452 

8 . 878529 

8.598200 

8 . 620333 

8.623242 

8.513889 

8.669896 

8.871683 

8.591412 

8.893261 

8.735319 

8.639936 

8.492802 

8.751306 

8.453496 

8.678980 

8.691607 

8.613602 

8 . 498462 

8.632406 

8.605199 

8.713999 

8.535895 

8.690619 

8.665134 

8.381021 

8.615179 

8.511600 

8.638710 

8.660035 

8.680061 

8.749016 

8.780081 


SNR-10  REBLURRING  PROCEDURE 

ITERATION  CASE 

NUMBER  NUMBER 


132 

1 

108 

2 

138 

3 

109 

4 

156 

5 

130 

6 

126 

7 

132 

8 

115 

9 

158 

10 

143 

11 

160 

12 

133 

13 

135 

14 

201 

15 

180 

16 

170 

17 

134 

18 

114 

19 

151 

20 

136 

21 

148 

22 

168 

23 

154 

24 

101 

25 

142 

26 

118 

27 

113 

28 

163 

29 

160 

30 

115 

31 

162 

32 

138 

33 

118 

34 

142 

35 

147 

36 

158 

37 

135 

38 

156 

39 

172 

40 

132 

41 

138 

42 

191 

43 

150 

44 

155 

45 

136 

46 

155 

47 

146 

48 

114 

49 

197 

50 

265 

DIFFERENCE 

ERROR 


0.3814697E— 05 
0 . 5435944 E— 04 
0 . 4005432 E— 04 
0. 70571 90E-04 
0. 1 907349 E— 04 
0 . 1 335144E— 04 
0. 1049042E-04 
0 . 2670288E-04 
0.171661 4E— 04 
0.1811 981 E-04 
0 . 9536743E— 05 
0. 1907349 E-05 
0. 1716614E-04 
0 . 2861 023E-05 
-0 . 41 48483 E— 03 
0. 1335144E-04 
0.257492 IE-04 
0.4482269 E-04 
0 . 3 6 239 62 E-04 
0. 23841 86E-04 
0. 228881 8E-04 
0. 1049042E-04 
0 . 1 525879E— 04 
0 . 2479553E-04 
0. 200271 6E-04 
0.1 144409 E-04 
0 . 2098083E— 04 
0 . 6675720E— 05 
0 . 2670288E— 04 
0 . 9536743E— 06 
0 . 3242493E— 04 
0 . 3337860E-04 
0 . 6675720E— 05 
0. 200271 6E-04 
0.3242493E-04 
0 . 2956390E— 04 
0 . 171 661 4E— 04 
0 . 4386902E— 04 
0 . 3528595E— 04 
0. 228881 8E-04 
0 . 6675720E— 05 
0.257492 IE-04 
0 . 2861023E— 04 
0. 200271 6E-04 
0 . 3242493E— 04 
0 . 2956390E— 04 
0 . 1 907349E-05 
0. 1 907349 E— 05 
0.31 471 25E-04 
0 . 5722046E— 05 
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MEAN  SOURED 
ERROR 

TABLE(  1) 
UNFOLDING 
ITERATIONS 

AVERAGE  SNR  - 9. 
SMOOTHING 
ITERATIONS 

841928 

CASE 

NUMBER 

DIFFERENCE 

ERROR 

8.708630 

23. 

11  . 

1 . 

-0.001101 

9.261088 

19. 

9. 

2. 

0.000751 

8.412957 

24. 

10. 

3. 

-0.000413 

8.588684 

31  . 

10. 

4. 

0.000476 

8.859292 

31. 

9 . 

5. 

0.000611 

8.756749 

26. 

10. 

6. 

-0.000397 

8.734849 

32. 

9. 

7. 

0.000555 

8.597588 

31  . 

9. 

8. 

0.000740 

8.678025 

31  . 

9. 

9. 

0.000737 

9.022989 

22. 

10. 

10. 

-0.001411 

8.886079 

39. 

8. 

11  . 

0.000899 

9.038413 

24. 

9. 

12. 

-0.000591 

8 . 933695 

23. 

10. 

13. 

0.000134 

8.437884 

34. 

9. 

14. 

0.000980 

9.002299 

25. 

8. 

15. 

0.000010 

8.594122 

32. 

9. 

16. 

0.000435 

8.691161 

23. 

10. 

17. 

-0.001687 

8.486436 

36. 

9. 

18. 

0.000853 

8.415577 

26. 

11  . 

19. 

-0.000031 

8.397182 

30. 

9. 

20. 

-0.000192 

8.694945 

33. 

8. 

21  . 

0.000278 

8.852404 

19. 

11  . 

22. 

-0.002861 

8.763515 

27. 

10. 

23. 

-0.000001 

8.650586 

19. 

10. 

24. 

0.000019 

8.810864 

29. 

8. 

25. 

-0.000175 

8.185898 

27. 

11 . 

26. 

-0.000366 

9.128948 

23. 

8. 

27. 

0.000893 

8.723063 

31  . 

9. 

28. 

0.000443 

8.744484 

21  . 

10. 

29. 

-0.002308 

8.755471 

29. 

8. 

30. 

0 . 000075 

8.594473 

27. 

10. 

31  . 

0.000318 

9 . 096992 

27. 

9. 

32. 

0.000083 

8.974359 

21  . 

10. 

33. 

-0.001815 

9.015691 

28. 

8. 

34. 

-0.000163 

8.912660 

20. 

9. 

35. 

0.000996 

8.792315 

28. 

8. 

36. 

0.000611 

8.679976 

32. 

9. 

37. 

0.000264 

9.020429 

22. 

9. 

38. 

0.000984 

8.783730 

25. 

10. 

39. 

-0.000944 

8.331797 

24. 

13. 

40. 

0.000073 

9 . 047639 

26. 

8. 

41  . 

0.000279 

8.824574 

30. 

8. 

42. 

0.000426 

8.889532 

23. 

11  . 

43. 

-0.001390 

8.026690 

25. 

14. 

44. 

-0.001446 

8.455950 

22. 

12. 

45. 

-0.001910 

8.896874 

23. 

9. 

46. 

0.000357 

8.317252 

31  . 

11  . 

47. 

0.000484 

8.270308 

38. 

10. 

48. 

0.000786 

9.346716 

20. 

9. 

49. 

0.000130 

8 . 765975 

20. 

1 1 . 

50. 

-0.001713 

MEAN  SQURED 
ERROR 


7.338927 
8.068066 
7.307953 
7.141337 
7.436351 
7 . 407320 
7.399758 
7.350255 
7 . 330608 
7.592187 
7.425316 
7.772296 
7.673055 
7.102782 
7 . 782703 
7.352423 
7.556736 
7.211708 
7 . 060783 
7 . 258268 
7 . 564574 
7.584249 
7.393219 
7.596375 
7.584871 
6.991838 
7.809992 
7.530498 
7 . 676629 
7.528740 
7 . 246883 

7.684171 

7 . 708984 

7 . 772242 

7.791096 

7.641953 

7 . 367406 

7.782211 

7 . 439094 

7.060203 

7.720122 

7.722177 

7 . 548825 

6.829368 

7.281810 

7 . 738607 

6 . 847265 

6.891400 

8.772583 

7.616624 


TABLE(  2)  AVERAGE  SNR  =19. 
UNFOLDING  SMOOTHING 

ITERATIONS  ITERATIONS 

683861 

CASE 

NUMBER 

DIFFERENCE 

ERROR 

53. 

20. 

1 . 

0.000759 

30. 

21  . 

2. 

0 . 000097 

33. 

23. 

3. 

0.000924 

54. 

23. 

4. 

0.000871 

46. 

21  . 

5. 

0 . 000655 

41  . 

23. 

6. 

0 . 000648 

50. 

19. 

7. 

0.000966 

49. 

18. 

8. 

0 . 000670 

62. 

18. 

9. 

0 . 000984 

39. 

23. 

10. 

0.000653 

56. 

19. 

11  . 

0 . 000884 

44. 

18. 

12. 

0 . 000702 

35. 

24. 

13. 

0.000961 

55. 

21  . 

14. 

0.000916 

49. 

17. 

15. 

0 . 000772 

53. 

18. 

16. 

0.000729 

34. 

22. 

17. 

0 . 000205 

63. 

18. 

18. 

0.000815 

68. 

18. 

19. 

0 . 000836 

52. 

17. 

20. 

0.000810 

46. 

17. 

21  . 

0.000697 

31  . 

27. 

22. 

0 . 000649 

46. 

21  . 

23. 

0.000773 

30. 

23. 

24. 

0 . 000006 

60. 

15. 

25. 

0.000929 

34. 

28. 

26. 

0.000148 

35. 

20. 

27. 

0.000813 

54. 

17. 

28. 

0.000739 

33. 

20. 

29. 

0.000331 

51  . 

17. 

30. 

0 . 000682 

35. 

27. 

31  . 

0.000057 

41  . 

21  . 

32. 

0 . 000696 

45. 

19. 

33. 

0.000898 

45. 

17. 

34. 

0.000757 

40. 

18. 

35. 

0.000906 

52. 

16. 

36. 

0.000833 

52, 

19. 

37. 

0 . 000688 

39. 

19. 

38. 

0.000714 

36. 

23. 

39. 

0.000738 

35. 

28. 

40. 

0.000030 

58. 

16. 

41  . 

0 . 000954 

45. 

16. 

42. 

0.000574 

37. 

24. 

43. 

0.000129 

33. 

33. 

44. 

0.000622 

31  . 

27. 

45. 

0.000665 

37. 

19. 

46. 

0 . 000730 

54. 

23. 

47. 

0 . 000743 

63. 

21  . 

48. 

0 . 000824 

21  . 

18. 

49. 

-0.000298 

36. 

22. 

50. 

0 . 000690 
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TA8LE(  3)  AVERAGE  SNR  =29.525789 
MEAN  SOURED  UNFOLDING  SMOOTHING  CASE 

ERROR  ITERATIONS  ITERATIONS  NUMBER 


6.351572 

89. 

7.206611 

44. 

6.528731 

36. 

6.133978 

64. 

6.533053 

60. 

6.475711 

55. 

6.512217 

68. 

6.540751 

66. 

6 . 356598 

Ill  . 

6.605123 

59. 

6.508080 

72. 

6.683022 

65. 

6.814991 

47. 

6.165030 

60. 

6.840886 

83. 

6.511253 

81  . 

6.777543 

48. 

6.329338 

84. 

6.100187 

Ill  . 

6.454587 

85. 

6.813840 

63. 

6 . 638523 

51  . 

6.493078 

62. 

6.801062 

41  . 

6.711045 

87. 

6.149081 

40. 

6.943799 

46. 

6.693546 

78. 

6.902631 

48. 

6.679087 

72. 

6.348399 

49. 

6.772192 

56. 

6.729747 

72. 

6 . 936660 

59. 

6.868730 

66. 

6.771721 

76. 

6.511921 

68. 

6.908458 

61  . 

6.595612 

43. 

6.276983 

44. 

6.780301 

77. 

6.969264 

64. 

6 . 667900 

52. 

5.996190 

40. 

6.477370 

38. 

6 . 948769 

51  . 

5.894585 

90. 

5.960738 

104. 

8.561893 

21  . 

6.750287 

59. 

29. 

1 . 

35. 

2. 

46. 

3. 

41  . 

4. 

33. 

5. 

37. 

6. 

30. 

7. 

27. 

8. 

25. 

9. 

35. 

10. 

31  . 

11  . 

28. 

12. 

39. 

13. 

40. 

14. 

26. 

15. 

26. 

16. 

34. 

17. 

29. 

18. 

26. 

19. 

24. 

20. 

26. 

21  . 

40. 

22. 

33. 

23. 

38. 

24. 

24. 

25. 

51  . 

26. 

33. 

27. 

26. 

28. 

31  . 

29. 

26. 

30. 

42. 

31  . 

33. 

32. 

30. 

33. 

28. 

34. 

29. 

35. 

26. 

36. 

30. 

37. 

29. 

38. 

41  . 

39. 

44. 

40. 

27. 

41  . 

24. 

42. 

36. 

43. 

59. 

44. 

46. 

45. 

30. 

46. 

31  . 

47. 

29. 

48. 

25. 

49. 

33. 

50. 

DIFFERENCE 

ERROR 


0.000914 
0.000581 
0.000408 
0.000849 
0.000923 
0.000976 
0.000914 
0.000920 
0.000997 
0.000766 
0.000788 
0.001000 
0.000507 
0.000887 
0.000972 
0.000942 
0.000899 
0.000946 
0.000958 
0.000981 
0.000937 
0.000942 
0.000895 
0.000529 
0.000969 
0.000642 
0.000993 
0.000886 
0.000789 
0.000832 
0.000979 
0.000993 
0 . 000893 
0.000720 
0.000877 
0.000955 
0.000903 
0.000985 
0.000425 
0.000659 
0.000947 
0.000966 
0.000978 
0.000815 
0.000929 
0.000851 
0.000986 
0.000998 
0 . 000950 
0 . 000842 


MEAN  SOURED 
ERROR 


5.545340 

6 . 448089 

5 . 872640 

5 . 366885 

5.833010 

5.728393 

5 . 798020 

5 . 897536 

5.558312 

5.817141 

5.789332 

6.157364 

6.116104 

5.429409 

6.018780 

5.815888 

6 . 1 24685 

5.608205 

5.333006 

5.779417 

6.188972 

5.839504 

5.785165 

6 . 1 24846 

5.973745 

5.459580 

6 . 264639 

5 . 994065 

6.236394 

5.995539 

5 . 620078 

6 . 036593 

5.909581 

6 . 264862 

6.062999 

6.026481 

5 . 836045 

6.177999 

5.921844 

5 . 646498 

6.021209 

6.337640 

5.966160 

5.302580 

5.827960 

6.295580 

5.152321 

5 . 206808 

8 . 460456 

5.995512 


TABLE(  4)  AVERAGE  SNR  -39.367710 
UNFOLDING  SMOOTHING  CASE  DIFFERENCE 

ITERATIONS  ITERATIONS  NUMBER  ERROR 


115. 

41  . 

1 . 

0.000946 

64. 

48. 

2. 

0.000948 

42. 

70. 

3. 

0.000944 

76. 

58. 

- 4. 

0 . 000933 

70. 

48. 

5. 

0 . 000947 

69. 

52. 

6. 

0.000950 

89. 

40. 

7. 

0 . 000938 

85. 

36. 

8. 

0 . 000890 

144. 

35. 

9. 

0 . 000998 

73. 

51  . 

10. 

0 . 000875 

90. 

43. 

11  . 

0 . 000987 

79. 

41  . 

12. 

0 . 000855 

58. 

56. 

13. 

0 . 000687 

76. 

54. 

14. 

0 . 000968 

125. 

35. 

15. 

0 . 000998 

109. 

35. 

16. 

0 . 000948 

68. 

43. 

17. 

0.000906 

107. 

40. 

18. 

0.000992 

133. 

37. 

19. 

0.000992 

102. 

35. 

20. 

0 . 000986 

83. 

35. 

21  . 

0 . 000997 

65. 

58. 

22. 

0 . 000992 

77. 

46. 

23. 

0 . 000905 

51 . 

55. 

24. 

0.000829 

112. 

35. 

25. 

0.000990 

48. 

74. 

26. 

0.000937 

57. 

47. 

27. 

0 . 000986 

98. 

37. 

28. 

0 . 000989 

60. 

45. 

29. 

0 . 000924 

88. 

37. 

30. 

0 . 000990 

54. 

68. 

31  . 

0 . 000957 

70. 

48. 

32. 

0 . 000896 

93. 

43. 

33. 

0 . 000960 

74. 

39. 

34. 

0 . 000875 

83. 

43. 

35. 

0.000985 

92. 

39. 

36. 

0.000991 

88. 

40. 

37. 

0.000999 

86. 

39. 

38. 

0 . 000985 

61  . 

51  . 

39. 

0.000970 

51  . 

65. 

40. 

0.000953 

95. 

39. 

41  . 

0.000967 

80. 

34. 

42. 

0.000973 

66. 

49. 

43. 

0.000983 

49. 

85. 

44. 

0.000903 

45. 

67. 

45. 

0.000993 

68. 

40. 

46. 

0 . 000885 

128. 

39. 

47. 

0 . 000982 

135. 

40. 

48. 

0 . 000987 

21  . 

30. 

49. 

-0 . 002297 

85. 

44. 

50. 

0 . 000992 

MEAN  SOURED 
ERROR 

TA8LE(  5)  AVERAGE  SNR  =49. 
UNFOLDING  SMOOTHING 

ITERATIONS  ITERATIONS 

209648 

CASE 

NUMBER 

4.859326 

137. 

54. 

1 . 

5.751388 

88. 

61. 

2. 

5.364193 

106. 

45. 

3. 

4.747822 

93. 

71  . 

4. 

5.243860 

84. 

61  . 

5. 

5.091815 

85. 

66. 

6. 

5.187953 

Ill . 

50. 

7. 

5.343029 

102. 

46. 

8. 

4.880616 

166. 

47. 

9. 

5.156663 

106. 

57. 

10. 

5.178987 

Ill  . 

54. 

11 . 

5 . 534201 

96. 

53. 

12. 

5 . 507786 

69. 

74. 

13. 

4.815241 

94. 

67. 

14. 

5.292534 

145. 

49. 

15. 

5.207727 

134. 

45. 

16. 

5 . 543026 

87. 

54. 

17. 

4.987315 

125. 

53. 

18. 

4.688622 

142. 

51  . 

19. 

5.186535 

125. 

45. 

20. 

5.621023 

103. 

46. 

21  . 

5.159598 

83. 

72. 

22. 

5.183424 

95. 

58. 

23. 

5.526213 

60. 

75. 

24. 

5.318564 

133. 

48. 

25. 

4.864296 

56. 

100. 

26. 

5.682859 

77. 

55. 

27. 

5.377396 

118. 

49. 

28. 

5 . 639555 

71  . 

61  . 

29. 

5 . 403643 

118. 

45. 

30. 

5.013740 

108. 

56. 

31. 

5 . 399240 

100. 

55. 

32. 

5 . 208829 

109. 

58. 

33. 

5.679126 

90. 

51  . 

34. 

5 . 369892 

103. 

55. 

35. 

5.373924 

98. 

57. 

36. 

5.252666 

109. 

51  . 

37. 

5.531154 

104. 

53. 

38. 

5.331197 

104. 

51  . 

39. 

5.086815 

58. 

91 . 

40. 

5.372299 

112. 

52. 

41  . 

5.773079 

100. 

43. 

42. 

5.361551 

71  . 

71  . 

43. 

4.704453 

60. 

108. 

44. 

5.266391 

52. 

91  . 

45. 

5 . 720006 

83. 

52. 

46. 

4.535335 

147. 

51  . 

47. 

. 4.563576 

163. 

52. 

48. 

8 . 403978 

21  . 

34. 

49. 

5.329252 

98. 

61  . 

50. 

DIFFERENCE 

ERROR 


0. 000987 
0.000968 
0.000998 
0.000955 
0.000944 
0.000956 
0.000975 
0.000969 
0.000999 
0.000991 
0.000983 
0.000911 
0 . 000902 
0.000988 
0 . 000999 
0.000970 
0.000988 
0.000951 
0.000991 
0.000972 
0.000962 
0.000997 
0.000893 
0.000891 
0.000987 
0 . 000890 
0 . 000959 
0.000969 
0 . 000993 
0.000996 
0.000973 
0.000999 
0.000998 
0.000896 
0.000999 
0.000952 
0 . 000956 
0.000979 
0.000951 
0.000911 
0.000978 
0.000985 
0.000823 
0.000957 
0.000926 
0.000911 
0.000957 
0.000995 
-0.002639 
0.000973 


TABLE(  6)  AVERAGE  SNR  =59.051571 
MEAN  SOURED  UNFOLDING  SMOOTHING  CASE 

ERROR  ITERATIONS  ITERATIONS  NUMBER 


4.268250 

146. 

71 . 

1 . 

5.110024 

113. 

75. 

2. 

4.841166 

144. 

52. 

3. 

4.225272 

110. 

84. 

4. 

4.725863 

95. 

77. 

5. 

4.537367 

102. 

79. 

6. 

4.653394 

144. 

57. 

7. 

4.848901 

120. 

56. 

8. 

4.298657 

179. 

61 . 

9. 

4.584485 

130. 

68. 

10. 

4.641416 

118. 

72. 

11  . 

4.984305 

116, 

64. 

12. 

4.962205 

80. 

94. 

13. 

4.285584 

112. 

80. 

14. 

4.655509 

168. 

62. 

15. 

4.666865 

145. 

59. 

16. 

5.014203 

106. 

66. 

17. 

4.444520 

155. 

62. 

18. 

4.139613 

149. 

66. 

19. 

4.659448 

131. 

60. 

20. 

5 . 093057 

123. 

58. 

21  . 

4.574582 

106. 

82. 

22. 

4.655677 

Ill  . 

71 . 

23. 

4.998540 

86. 

76. 

24. 

4.732336 

148. 

63. 

25. 

4.387926 

120. 

67. 

26. 

5.160929 

107. 

60. 

27. 

4.825956 

136. 

62. 

28. 

5.103209 

89. 

72. 

29. 

4.871598 

138. 

57. 

30. 

4.473477 

133. 

66. 

31  . 

4 . 820234 

106. 

76. 

32. 

4.606806 

136. 

68. 

33. 

5.149992 

117. 

59. 

34. 

4.768734 

107. 

75. 

35. 

4.805202 

126. 

65. 

36. 

4.732457 

137. 

60. 

37. 

4.949416 

113. 

72. 

38. 

4.792654 

127. 

62. 

39. 

4.614918 

123. 

64. 

40. 

4.804296 

132. 

64. 

41  . 

5.256889 

1 10. 

57. 

42. 

4.834378 

95. 

76. 

43. 

4.226316 

127. 

73. 

44. 

4.767610 

60. 

115. 

45. 

5 . 200059 

99. 

64. 

46. 

4.011203 

168. 

62. 

47. 

4.008428 

185. 

65. 

48. 

8.453753 

50. 

15. 

49. 

4.744222 

131  . 

68. 

50. 

DIFFERENCE 

ERROR 


0 . 000977 
0.000969 
0.000997 
0.000972 
0 . 000966 
0 . 000999 
0 . 000999 
0 . 000982 
0 . 000994 
0 . 000984 
0 . 000937 
0 . 000999 
0 . 000959 
0 . 000988 
0 . 000998 
0 . 000956 
0.000956 
0 . 000999 
0 . 000983 
0 . 000989 
0.000983 
0.000959 
0.000964 
0 . 000982 
0 . 000997 
0 . 000996 
0 . 000993 
0.000990 
0.000968 
0.001000 
0.000999 
0.000978 
0 . 000988 
0.000985 
0.000990 
0 . 000995 
0.000961 
0 . 000993 
0.000992 
0 . 000970 
0.000981 
0 . 000996 
0.000991 
0.000993 
0.000924 
0.000947 
0.001000 
0.000984 
0.000925 
0 . 000999 


TABLE(  7)  AVERAGE  SNR  =68.893509 
MEAN  SOURED  UNFOLDING  SMOOTHING  CASE 

ERROR  ITERATIONS  ITERATIONS  NUMBER 


3.760494 

167. 

83. 

1 . 

4.529139 

136. 

90. 

2. 

4.365361 

169. 

62. 

3. 

3.774784 

131  . 

94. 

4. 

4.266692 

113. 

88. 

5. 

4.051329 

120. 

91  . 

6. 

4.176980 

152. 

72. 

7. 

4.403984 

138. 

66. 

8. 

3.796349 

186. 

77. 

9. 

4.085845 

153. 

79. 

10. 

4.166319 

135. 

in 

00 

11  . 

4.493429 

136. 

75. 

12. 

4.467311 

91  . 

116. 

13. 

3.823727 

131  . 

92. 

14. 

4.098202 

174. 

80. 

15. 

4.185543 

162. 

71  . 

16. 

4.535934 

137. 

72. 

17. 

3.963573 

161  . 

79. 

18. 

3.669138 

162. 

79. 

19. 

4.190782 

150. 

71  . 

20. 

4.603064 

144. 

70. 

21  . 

4.063638 

123. 

96. 

22. 

4.188155 

139. 

78. 

23. 

4.518237 

104. 

87. 

24. 

4.208547 

167. 

77. 

25. 

3.929424 

139. 

78. 

26. 

4.677483 

114. 

78. 

27. 

4.331723 

157. 

74. 

28. 

4.615726 

105. 

85. 

29. 

4.389132 

160. 

69. 

30. 

3.998625 

152. 

78. 

31  . 

4.305084 

125. 

90. 

32. 

4.084811 

157. 

80. 

33. 

4.664434 

142. 

69. 

34. 

4.252906 

123. 

88. 

35. 

4.299731 

129. 

85. 

36. 

4.263037 

157. 

72. 

37. 

4.425909 

130. 

88. 

38. 

4.307644 

147. 

74. 

39. 

4.153526 

146. 

75. 

40. 

4.301148 

141  . 

81  . 

41  . 

4.785040 

125. 

69. 

42. 

4.359969 

Ill  . 

89. 

43. 

3 . 757203 

121  . 

100. 

44. 

4.319714 

69. 

138. 

45. 

4.725494 

116. 

76. 

46. 

3.560675 

187. 

73. 

47. 

3.528780 

204. 

78. 

48. 

8.437807 

61  . 

14. 

49. 

4.221049 

132. 

91  . 

50. 

DIFFERENCE 

ERROR 


0.000998 
0 . 000970 
0.000995 
0 . 000996 
0 . 000981 
0.000980 
0 . 000998 
0.000974 
0 . 000997 
0 . 000983 
0.000961 
0 . 000998 
0 . 000973 
0 . 000983 
0 . 000997 
0.000980 
0 . 000997 
0.000997 
0 . 000980 
0 . 000979 
0 . 000987 
0.000990 
0 . 000999 
0 . 000972 
0.000995 
0.000988 
0.000951 
0.000995 
0 . 000967 
0.000979 
0 . 000997 
0 . 000988 
0 . 000988 
0.000991 
0 . 000980 
0.000994 
0.000984 
0.000973 
0 . 000992 
0.000984 
0 . 000959 
0.000932 
0 . 000978 
0.000992 
0 . 000958 
0.000953 
0 . 000994 
0 . 000995 
0 . 000989 
0 . 000998 


MEAN  SOURED 
ERROR 


3.317247 

4.011607 

3.935492 

3.379414 

3.852702 

3.626014 

3.754831 

4.002509 

3.363765 

3.644741 

3.744874 

4.055869 

4.019399 

3.418980 

3.614404 

3.757840 


TABLE(  8)  AVERAGE  SNR  =78.735428 
UNFOLDING  SMOOTHING  CASE  DIFFERENCE 


ITERATIONS  ITERATIONS 


158. 

109. 

154. 

107. 

189. 

73. 

149. 

106. 

129. 

101 . 

138. 

102. 

172. 

83. 

150. 

78. 

198. 

91  . 

150. 

102. 

151  . 

98. 

164. 

82. 

104. 

136. 

147. 

105. 

171  . 

103. 

175. 

84. 

NUMBER  ERROR 


1 . 

0.000976 

2. 

0.000979 

3. 

0.000993 

4. 

0.000985 

5. 

0.000974 

6. 

0.000981 

7. 

0.000986 

8. 

0.000997 

9. 

0.000997 

10. 

0.000982 

11  . 

0.000983 

12. 

0.000993 

13. 

0.000969 

14. 

0.000986 

15. 

0.001000 

16. 

0.000996 

TABLE(17)  AVERAGE  SNR  - 74.726807 
MEAN  SOURED  UNFOLDING  SMOOTHING  CASE 

ERROR  ITERATIONS  ITERATIONS  NUMBER 


3.395554 

155. 

106. 

1 . 

3.812774 

142. 

93. 

2. 

4.077936 

136. 

88. 

3. 

4.080888 

154. 

95. 

4. 

3.429931 

181  . 

89. 

5. 

3 . 697706 

155. 

80. 

6. 

3.096177 

195. 

81 . 

7. 

4.015673 

130. 

107. 

8. 

4.330874 

156. 

86. 

9. 

4.172592 

150. 

79. 

10. 

4 . 049789 

140. 

87. 

11 . 

4.041737 

163. 

88. 

12. 

3.865810 

191  . 

74. 

13. 

3.876207 

163. 

80. 

14. 

3.868444 

139. 

103. 

15. 

4.339361 

106. 

95. 

16. 

4.321587 

114. 

97. 

17. 

3.849030 

129. 

104. 

18. 

3.894280 

142. 

92. 

19. 

3.650421 

172. 

85. 

20. 

4.218463 

165. 

78. 

21  . 

4.059209 

135. 

87. 

22. 

3.990735 

176. 

90. 

23. 

4 . 520427 

138. 

87. 

24. 

3.843392 

158. 

cvi 

00 

25. 

3.691988 

198. 

75. 

26. 

4. 189553 

156. 

74. 

27. 

4.052091 

167. 

81 . 

28. 

4 . 045865 

160. 

76. 

29. 

4.001598 

160. 

78. 

30. 

4.060649 

168. 

00 

31  . 

4.016409 

127. 

90. 

32. 

4.065069 

138. 

74. 

33. 

3.984455 

148. 

85. 

34. 

4.102486 

151. 

76. 

35. 

4.113132 

166. 

79. 

36. 

3.848848 

151  . 

84. 

37. 

3.962167 

151. 

80. 

38. 

3.878361 

141  . 

94. 

39. 

3.776527 

135. 

96. 

40. 

3.992266 

165. 

83. 

41  . 

4.083763 

127. 

90. 

42. 

3.721014 

163. 

80. 

43. 

4.224907 

162. 

73. 

44. 

4.172873 

149. 

93. 

45. 

4.514537 

138. 

76. 

46. 

3 . 989830 

144. 

89. 

47. 

3 . 950598 

162. 

83. 

48. 

8.662059 

18. 

70. 

49. 

4 . 067629 

162. 

81  . 

50. 

DIFFERENCE 

ERROR 


0.000976 
0.000960 
0 . 000989 
0.000997 
0.000985 
0 . 00099 3 
0.000999 
0.000998 
0 . 000999 
0.000997 
0 . 000986 
0.001000 
0 . 000997 
0.000986 
0.000985 
0 . 000994 
0.000989 
0 . 001 000 
0 . 000993 
0 . 000999 
0.000990 
0.000977 
0.000995 
0 . 000974 
0 . 000998 
0 . 000999 
0 . 000990 
0.001000 
0 . 000982 
0 . 000984 
0 . 000993 
0 . 000956 
0 . 000992 
0 . 000997 
0.000983 
0.000997 
0.000996 
0.000994 
0.000979 
0.000987 
0.000996 
0.000988 
0.000997 
0.000991 
0.000979 
0 . 000997 
0 . 000988 
0 . 000990 
0.000782 
0 . 000999 


MEAN  SOURED 
ERROR 


3.021733 

3.446605 

3 . 698222 

3.656251 

3.075177 

3.355496 

2.771654 

3 . 602528 

3.888824 

3.781230 

3.675700 

3.624150 

3 . 483428 

3.509586 

3.459683 

3.980025 

3.934175 

3.466334 

3.524656 

3.279536 

3.808535 

3 . 694003 

3.548167 

4.083356 

3 . 470236 

3 . 329963 

3.818757 

3.647607 

3.661803 

3.620004 

3.667289 

3 . 650563 

3 . 729050 

3.600101 

3.740960 

3.719209 

3 . 486450 

3.595068 

3.496950 

3.413874 

3 . 593056 

3.713061 

3.361726 

3.828975 

3 . 748263 

4.107911 

3 . 609820 

3 . 550092 

8.612576 

3 . 674625 


TABLE(18)  AVERAGE  SNR  - 84. 
UNFOLDING  SMOOTHING 

ITERATIONS  ITERATIONS 

067673 

CASE 

NUMBER 

DIFFERENCE 

ERROR 

167. 

120. 

1 . 

0.080999 

154. 

106. 

2. 

0 . 000978 

170. 

90. 

3. 

0 . 000999 

171  . 

109. 

4. 

0 . 000989 

194. 

102. 

5. 

0 . 000994 

167. 

91 . 

6. 

0 . 000993 

193. 

96. 

7. 

0.000997 

151  . 

120. 

8. 

0 . 000988 

162. 

106. 

9. 

0 . 000989 

148. 

99. 

10. 

0 . 000983 

156. 

98. 

11  . 

0 . 000979 

166. 

109. 

12. 

0 . 000982 

194. 

90. 

13. 

0 . 000987 

179. 

91 . 

14. 

0 . 000992 

153. 

117. 

15. 

0.000981 

126. 

103. 

16. 

0 . 000996 

133. 

107. 

17. 

0 . 000985 

143. 

118. 

18. 

0.000990 

155. 

105. 

19. 

0 . 000982 

182. 

99. 

20. 

0.000995 

179. 

91  . 

21. 

0.000995 

147. 

100. 

22. 

0.000980 

*1 67 . 

120. 

23. 

0.000990 

152. 

102. 

24. 

0 . 000999 

149. 

106. 

m 

CM 

0.000975 

206. 

88. 

26. 

0 . 000996 

162. 

89. 

27. 

0 . 000999 

184. 

93. 

28. 

0.000997 

177. 

86. 

29. 

0 . 000990 

164. 

94. 

30. 

0 . 000997 

178. 

92. 

31  . 

0.000997 

140. 

101  . 

32. 

0 . 000994 

156. 

82. 

33. 

0 . 000996 

170. 

94. 

34. 

0.000999 

167. 

86. 

35. 

0 . 000999 

187. 

90. 

36. 

0.000994 

152. 

102. 

37. 

0.000991 

145. 

102. 

38. 

0.000994 

156. 

106. 

39. 

0.000977 

148. 

109. 

40. 

0.000981 

163. 

104. 

41  . 

0.000986 

143. 

100. 

42. 

0 . 000998 

174. 

92. 

43. 

0 . 000999 

178. 

84. 

44. 

0.000982 

162. 

109. 

45. 

0 . 000978 

140. 

95. 

46. 

0 . 000992 

161  . 

100. 

47. 

0 . 000974 

153. 

108. 

48. 

0 . 000977 

18. 

70. 

49. 

-0 . 006763 

161  . 

102. 

50. 

0.000971 

MEAN  SOURED 
ERROR 


2.701527 

3.123418 

3.35032 3 

3.280643 

2.758510 

3.047590 

2.493113 

3.232638 

3 . 494541 

3 . 434758 

3.340736 

3.254897 

3.144088 

3.177465 

3.105422 

3.646526 

3.581006 

3.130951 

3.196333 

2.951860 

3.437624 

3.365005 

3.162249 

3.690495 

3.143560 

3.008070 

3.488896 

3.281574 

3.318369 

3.279523 

3.315232 

3.323969 

3.423938 

3.257277 

3.414912 

3.364511 

3.165940 


TA8LE( 19)  AVERAGE  SNR  = 93.408524 
UNFOLDING  SMOOTHING  CASE  DIFFERENCE 

ITERATIONS  ITERATIONS  NUMBER  ERROR 


183. 

130. 

1 . 

0 . 000995 

171  . 

115. 

2. 

0 . 000982 

164. 

112. 

3. 

0.000991 

186. 

123. 

4. 

0 . 000984 

187. 

125. 

5. 

0 . 000990 

161  . 

Ill  . 

6. 

0 . 000988 

202. 

107. 

7. 

0 . 000996 

172. 

132. 

8. 

0 . 000988 

175. 

122. 

9. 

0 . 000988 

160. 

Ill  . 

10. 

0 . 000990 

169. 

110. 

11  . 

0 . 000984 

178. 

125. 

12. 

0 . 000986 

207. 

102. 

13. 

0 . 000999 

174. 

112. 

14. 

0.000973 

169. 

128. 

15. 

0 . 000988 

144. 

113. 

16. 

0 . 000999 

152. 

117. 

17. 

0 . 000994 

163. 

126. 

18. 

0 . 000995 

168. 

117. 

19. 

0 . 000993 

181  . 

118. 

20. 

0 . 000998 

177. 

112. 

21. 

0 . 000979 

160. 

112. 

22. 

0.000980 

185. 

135. 

23. 

0 . 000993 

170. 

114. 

24. 

0.000990 

164. 

117. 

25. 

0.000981 

216. 

100. 

26. 

0 . 000999 

188. 

94. 

27. 

0 . 000998 

176. 

117. 

28. 

0 . 000993 

185. 

99. 

29. 

0 . 000998 

167. 

Ill  . 

30. 

0 . 000984 

180. 

110. 

31  . 

0.000974 

151  . 

113. 

32. 

0 . 000997 

173. 

90. 

33. 

0.000998 

190. 

103. 

34. 

0 . 000998 

184. 

95. 

35. 

0.001000 

206. 

101 . 

36. 

0.001000 

166. 

113. 

37. 

0.000981 

TABLE(20)  AVERAGE  SNR  = 98.419296 
MEAN  SQURED  UNFOLDING  SMOOTHING  CASE 

ERROR  iterations  iterations  number 


2.617830 

184. 

3.162520 

190. 

3.201327 

201  . 

2.738460 

208. 

3.148264 

162. 

2.926951 

166. 

3 . 050243 

203. 

3.312392 

160. 

2.664902 

202. 

2.927900 

182. 

3.039490 

180. 

3.308157 

181  . 

3.273428 

168. 

2.755229 

177. 

2.842124 

197. 

3.042425 

184. 

3.353795 

171  . 

2.841238 

189. 

2.616894 

183. 

3.075007 

173. 

3.369231 

174. 

2 . 894640 

176. 

3 . 070945 

176. 

3.348740 

153. 

2.975874 

194. 

2.852601 

160. 

3 . 484564 

188. 

3.135615 

188. 

3 . 424960 

159. 

3.197821 

191  . 

2 . 888950 

180. 

3.082851 

179. 

2.891891 

185. 

3 . 440476 

181  . 

3.077373 

167. 

3.118832 

174. 

3.115471 

190. 

3.175792 

182. 

3.138712 

175. 

3.023510 

174. 

3.113745 

183. 

3 . 609308 

, 167. 

3.216776 

165. 

2.697381 

173. 

3.272591 

143. 

3 . 540343 

164. 

2 . 537032 

188. 

2 . 438334 

202. 

8.376616 

19. 

3.016617 

179. 

136. 

1 . 

136. 

2. 

103. 

3. 

114. 

4. 

125. 

5. 

126. 

6. 

106. 

7. 

109. 

8. 

127. 

9. 

127. 

10. 

124. 

11  . 

113. 

12. 

131  . 

13. 

129. 

14. 

132. 

15. 

117. 

16. 

117. 

17. 

127. 

18. 

122. 

19. 

116. 

20. 

121  . 

21  . 

131  . 

22. 

119. 

23. 

121. 

24. 

130. 

25. 

125. 

26. 

102. 

27. 

124. 

28. 

117. 

29. 

120. 

30. 

124. 

31  . 

129. 

32. 

128. 

33. 

116. 

34. 

124. 

35. 

125. 

36. 

119. 

37. 

131  . 

38. 

122. 

39. 

124. 

40. 

123. 

41  . 

105. 

42. 

121  . 

43. 

134. 

44. 

128. 

45. 

113. 

46. 

124. 

47. 

138. 

48. 

75. 

49. 

132. 

50. 

DIFFERENCE 

ERROR 


0.000992 
0 . 000996 
0.001000 
0 . 000999 
0 . 000990 
0 . 000997 
0 . 000999 
0.000984 
0 . 000996 
0 . 000981 
0.000983 
0 . 000993 
0 . 000998 
0 . 000995 
0 . 000989 
0.001000 
0.000981 
0 . 000995 
0 . 000992 
0 . 000983 
0 . 000995 
0.000987 
0 . 000999 
0.000987 
0 . 000992 
0 . 000986 
0.001000 
0 . 000989 
0.000984 
0.000985 
0 . 000998 
a . aee992 
0 . 000987 
0.000999 
0.000990 
0 . 000987 
0 . 000995 
0 . 000992 
0 . 000999 
0 . 000985 
0.000987 
0.000991 
0.000984 
0 . 000992 
0.000993 
0.000988 
0 . 000992 
0 . 000996 
0 . 000783 
0 . 000992 


MEAN  SOURED 
ERROR 

TABLE (30)  AVERAGE  SNR  » 9.841928 

UNFOLDING  SMOOTHING  CASE 

ITERATIONS  (TFRATIONS  NUMBER 

19.226101 

7. 

0. 

1 . 

21.047100 

6. 

0. 

2. 

21 .770720 

7. 

0. 

3. 

19.629490 

7. 

0. 

4. 

21 .853430 

7. 

0. 

5. 

21 .055420 

7. 

0. 

6. 

22.337740 

7. 

0. 

7. 

24.593260 

6. 

0. 

8. 

20.764030 

7. 

0. 

9. 

20.709360 

7. 

0. 

10. 

22.742599 

7. 

0. 

11  . 

24.214041 

6. 

0. 

12. 

20.775089 

6. 

0. 

13. 

19.790310 

7. 

0. 

14. 

21 .295679 

7. 

0. 

15. 

23.150551 

6. 

0. 

16. 

23.152969 

6. 

0. 

17. 

21.412519 

7. 

0. 

18. 

20 . 385550 

7. 

0. 

19. 

23.275249 

7. 

0. 

20. 

23.667351 

7. 

0. 

21  . 

19.801310 

7. 

0. 

22. 

22.005400 

6. 

0. 

23. 

22.744061 

6. 

0. 

24. 

21.678530 

8. 

0. 

25. 

21.203030 

7. 

0. 

26. 

23.972679 

6. 

0. 

27. 

22.745239 

7. 

0. 

28. 

23 . 404949 

6. 

0. 

29. 

22.231270 

8. 

0. 

30. 

20.863701 

7. 

0. 

31  . 

21 . 155460 

6. 

0. 

32. 

21 .169950 

6. 

0. 

33. 

24.003750 

7. 

0. 

34. 

21 .795870 

6. 

0. 

35. 

22.679979 

7. 

0. 

36. 

22.077660 

7. 

0. 

37. 

21 . 629990 

7. 

0. 

38. 

21.915581 

7. 

0. 

39. 

20.291821 

7. 

0. 

40. 

22.761860 

6. 

0. 

41  . 

26.952160 

6. 

0. 

42. 

21.465460 

6. 

0. 

43. 

18.319040 

7. 

0. 

44. 

21.310020 

6. 

0. 

45. 

24.234800 

6. 

0. 

46. 

19.398029 

7. 

0. 

47. 

17.762960 

8- 

0. 

48. 

22.756861 

7. 

0 

49. 

20.713470 

7. 

0. 

50. 

DIFFERENCE 

ERROR 


-0.105171 

-0.043852 

-0.118877 

-0.114338 

-0.194771 

-0.220104 

-0.119179 

-0.061039 

-0.054441 

-0.183603 

-0.138123 

-0.111889 

-0.023972 

-0.051283 

-0.046953 

-0.003626 

-0.079046 

-0.046980 

-0.192974 

-0.176338 

-0.156557 

-0.220175 

-0.043421 

-0. 136856 

-0.195791 

-0. 147413 

-0.038589 

-0 . 036505 

-0.151316 

-0.193779 

-0.038145 

-0.016468 

-0.001968 

-0 . 234383 

-0.101829 

-0.132013 

-0.095732 

-0.158812 

-0.159691 

-0.172621 

-0.029436 

-0.208326 

-0.190754 

-0.027361 

-0.017860 

-0.211664 

-0.101019 

-0.037178 

-0.225559 

-0.226524 


MEAN  SOURED 
ERROR 

TABLE(31)  AVERAGE  SNR  » 19 
UNFOLDING  SMOOTHING 

ITERATIONS  ITERATIONS 

,683861 

CASE 

NUMBER 

9.843993 

13. 

0. 

1 . 

11.201550 

11 . 

0. 

2. 

10.530930 

12. 

0. 

3. 

10.045750 

13. 

0. 

4. 

10.978920 

12. 

0. 

5. 

10.480340 

12. 

0. 

6. 

11.094980 

13. 

0. 

7. 

11.778590 

11  . 

0. 

8. 

10.486390 

13. 

0. 

9. 

10.613170 

12. 

0. 

10. 

11 .486980 

13. 

0. 

11  . 

12.206080 

11  . 

0. 

12. 

10.948750 

11  . 

0. 

13. 

9.950316 

13. 

0. 

14. 

10.943020 

12. 

0. 

15. 

1 1 . 485240 

12. 

0. 

16. 

11.630610 

11 . 

0. 

17. 

10.732040 

13. 

0. 

18. 

10.033770 

12. 

0. 

19. 

11 .140610 

12. 

0. 

20. 

1 1 . 835970 

12. 

0. 

21  . 

10.241070 

12. 

0. 

22. 

11.104150 

12. 

0. 

23. 

11.156940 

11 . 

0. 

24. 

10.989700 

13. 

0. 

25. 

10.039500 

12. 

0. 

26. 

11.831050 

11  . 

0. 

27. 

11.565120 

13. 

0. 

28. 

11.582860 

11  . 

0. 

29. 

1 1 . 206000 

13. 

0. 

30. 

10.347560 

13. 

0. 

31. 

10.972260 

12. 

0. 

32. 

10.853060 

12. 

0. 

33. 

12.145740 

12. 

0. 

34. 

11 .014590 

11  . 

0. 

35. 

11 .401290 

12. 

0. 

36. 

11.215910 

13. 

0. 

37. 

11.215170 

12. 

0. 

38. 

10.951230 

12. 

0. 

39. 

10.256720 

12. 

0. 

40. 

1 1 . 666350 

12. 

0. 

41  . 

13.147900 

11  . 

0. 

42. 

11.086240 

11  . 

0. 

43. 

9.272814 

13. 

0. 

44. 

10.525770 

11  . 

0. 

45. 

12.193030 

1 1 . 

0. 

46. 

9 . 589289 

13. 

0. 

47. 

9.139634 

15. 

0. 

48. 

13.302290 

10. 

0. 

49. 

10.806590 

12. 

0 

50. 

DIFFERENCE 

ERROR 


-0. 029004 
-0.008267 
-0.028964 
-0.025162 
-0.018272 
-0.027701 
-0 . 040694 
-0.014932 
-0.010529 
-0.016668 
-0 . 035267 
-0.021389 
-0.001121 
-0.031156 
-0 . 002595 
-0.027514 
-0.021804 
-0.016435 
-0 . 006404 
-0.029387 
-0 . 026890 
-0 . 032406 
-0.034019 
-0.055010 
-0.031626 
-0.023050 
-0.027351 
-0.027321 
-0.053346 
-0.031703 
-0.035898 
-0.026159 
-0.027996 
-0.047365 
-0.028947 
-0.021420 
-0.037941 
-0.028437 
-0.019464 
-0.009613 
-0.037958 
-0.057947 
-0 . 023086 
-0.008620 
-0.008162 
-0.056947 
-0.018207 
-0.019536 
-0.073874 
-0 . 035036 


280 


TABLE(32)  AVERAGE  SNR  - 29.525789 
MEAN  SOURED  UNFOLDING  SMOOTHING  CASE 

ERROR  ITERATIONS  ITERATIONS  NUMBER 


7.315786 

19. 

0. 

1 . 

8.495259 

17. 

0. 

2. 

7.760924 

17. 

0. 

3. 

7.446634 

20. 

0. 

4. 

8 . 085850 

18. 

0. 

5. 

7.734996 

18. 

0. 

6. 

8.104994 

19. 

0. 

7. 

8.532338 

17. 

0. 

8. 

7.681018 

20. 

0. 

9. 

7.895891 

18. 

0. 

10. 

8.390689 

19. 

0. 

11  . 

8.980170 

17. 

0. 

12. 

8 . 270487 

17. 

0. 

13. 

7.369601 

19. 

0. 

14. 

8.158388 

19. 

0. 

15. 

8 . 377299 

18. 

0. 

16. 

8.619022 

16. 

0. 

17. 

7.861460 

20. 

0. 

18. 

7.343160 

19. 

0. 

19. 

8.089566 

17. 

0. 

20. 

8.698585 

17. 

0. 

21  . 

7.704100 

18. 

0. 

22. 

8.178650 

18. 

0. 

23. 

8.275409 

16. 

0. 

24. 

8.150025 

19. 

0. 

25. 

7.316804 

18. 

0. 

26. 

8.733450 

16. 

0. 

27. 

8.514361 

19. 

0. 

28. 

8.572556 

16. 

0. 

29. 

8.283847 

19. 

0. 

30. 

7.628445 

19. 

0. 

31  . 

8 . 1 80305 

18. 

0. 

32. 

8.068481 

18. 

0. 

33. 

8.963150 

17. 

0. 

34. 

8.224533 

17. 

0. 

35. 

8.418651 

18. 

0. 

36. 

8.265250 

19. 

0. 

37. 

8.398780 

18. 

0. 

38. 

8.082070 

18. 

0. 

39. 

7 . 607956 

18. 

0. 

40. 

8.627525 

18. 

0. 

41  . 

9.545705 

16. 

0. 

42. 

8.272751 

17. 

0. 

43. 

6.906265 

20. 

0. 

44. 

7.815366 

17. 

0. 

45. 

9.014911 

16. 

0. 

46. 

7.006933 

20. 

0. 

47. 

6.759719 

22. 

0. 

48. 

11.199050 

11  . 

0. 

49. 

8.117874 

18. 

0. 

50. 

DIFFERENCE 

ERROR 


—0.000018 
-0.005919 
-0.003345 
-0.010529 
-0.004816 
-0.008698 
-0.012748 
-0.019246 
-0.004030 
0.000456 
-0.007516 
-0.015305 
-0.004380 
-0 . 003955 
-0.011575 
-0.010308 
-0 . 002030 
-0.011105 
-0.012146 
-0.000591 
-0.000449 
-0 . 008863 
-0.010564 
-0.019298 
-0.009558 
-0.015587 
-0.005605 
-0 . 006966 
-0.018090 
-0.010856 
-0.011085 
-0 . 005666 
-0.004575 
-0.006029 
-0.016262 
-0.009730 
-0.010905 
-0.011533 
-0.011270 
-0.003280 
-0.009248 
-0.022045 
-0.009822 
-0.010685 
-0.014971 
-0.016479 
-0.008854 
-0.000337 
-0.009194 
-0.011708 


MEAN  SQURED 
ERROR 


2.341621 

2.821401 

2.887903 

2.461803 

2.852439 

2.641737 

2.752923 

3.020818 

2.385809 

2.636262 

2.747622 

2 . 994894 

2.952267 

2.484911 

2.537713 

2.747830 

3.041290 


TABLE(21 ) AVERAGE  SNR  -108.261200 
UNFOLDING  SMOOTHING  CASE  DIFFERENCE 


ITERATIONS  ITERATIONS 


197. 

147. 

207. 

148. 

187. 

129. 

196. 

140. 

181  . 

134. 

179. 

137. 

196. 

128. 

174. 

119. 

214. 

139. 

197. 

138. 

193. 

136. 

193. 

126. 

187. 

142. 

192. 

139. 

211  . 

143. 

196. 

129. 

186. 

128. 

NUMBER  ERROR 


1 . 

0.000995 

2. 

0 . 000996 

3. 

0.000993 

4. 

0 . 000999 

5. 

0.000990 

6. 

0.000991 

7. 

0.000987 

8. 

0 . 000976 

9. 

0 . 000998 

10. 

0 . 000989 

11  . 

0 . 000999 

12. 

0 . 000992 

13. 

0 . 000997 

14. 

0 . 000995 

15. 

0 . 000997 

16. 

0 . 000987 

17. 

0 . 000999 

TABLE (33)  AVERAGE  SNR  =*  39.367710 
MEAN  SQURED  • UNFOLDING  SMOOTHING  CASE 

ERROR  ITERATIONS  ITERATIONS  NUMBER 


5.984739 

27. 

0. 

1 . 

7 . 060900 

24. 

0. 

2. 

6.408188 

23. 

0. 

3. 

6.084318 

28. 

0. 

4. 

6.616811 

25. 

0. 

5. 

6.339706 

25. 

0. 

6. 

6 . 600825 

26. 

0. 

7. 

6.955102 

22. 

0. 

8. 

6.221606 

28. 

0. 

9. 

6.471409 

26. 

0. 

10. 

6.820210 

26. 

0. 

11  . 

7.348662 

23. 

0. 

12. 

6.872921 

24. 

0. 

13. 

6.036716 

27. 

0. 

14. 

6.695366 

26. 

0. 

15. 

6.816841 

25. 

0. 

16. 

7.114150 

22. 

0. 

17. 

6.393424 

27. 

0. 

18. 

5.981826 

26. 

0. 

19. 

6 . 604228 

24. 

0. 

20. 

7.133105 

24. 

0. 

21  . 

6.371039 

25. 

0. 

22. 

6.688293 

25. 

0. 

23. 

6 . 360400 

21  . 

0. 

24. 

6.690185 

26. 

0. 

25. 

5.997118 

24. 

0. 

26. 

7.197417 

22. 

0. 

27. 

6.953088 

26. 

0. 

28. 

7 . 088036 

21  . 

0. 

29. 

6.793632 

26. 

0. 

30. 

6.255766 

26. 

0. 

31  . 

6 . 725424 

25. 

0. 

32. 

6.607188 

26. 

0. 

33. 

7.353499 

24. 

0. 

34. 

6.789634 

23. 

0. 

35. 

6 . 899265 

25. 

0. 

36. 

6.761390 

26. 

0. 

37. 

6.936168 

25. 

0. 

38. 

6 . 646839 

24. 

0. 

39 

6.269387 

25. 

0. 

40 

7 . 045433 

25. 

0. 

41 

7 . 792303 

21  . 

0. 

42 

6.820107 

24. 

0. 

43 

5 . 695804 

27. 

0. 

44 

6.472890 

23. 

0. 

45 

7.429053 

22. 

0. 

46 

5.688618 

28. 

0. 

47 

5.498116 

31  . 

0. 

48 

10.372780 

12. 

0. 

49 

6.711045 

25. 

0. 

50 

DIFFERENCE 

ERROR 


0.000591 
-0.000358 
0 . 000374 
-0.003464 
-0.001885 
-0 . 003086 
-0.005155 
0 . 000829 
0.000167 
-0.001853 
-0.001257 
-0.002122 
-0.001717 
-0 . 003223 
0.000865 
-0.005259 
0.000773 
-0 . 000271 
-0 . 002398 
-0 . 005676 
-0.005159 
-0.000091 
-0.004215 
0.000318 
-0.000982 
-0.002932 
-0.001900 
-0.000391 
0 . 000454 
-0.003550 
-0 . 003468 
-0 . 000356 
-0 . 003207 
-0 . 004978 
0 . 000282 
-0 . 003083 
-0.003440 
-0 . 003584 
-0 . 000342 
-0.002825 
-0 . 000056 
-0.003432 
-0.005584 
-0.001607 
-0.004905 
-0.007015 
-0 . 005079 
-0 . 000697 
-0.005815 
-0 . 002443 
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MEAN  SOURED 
ERROR 


5.073970 

6.061213 

5.522857 

5.160447 

5.647283 

5.409139 

5.612190 

5.945710 

5.238477 

5.507965 

5.789950 

6.273374 

5.918736 

5.139306 

5.682376 

5.796729 

6.121377 

5.417464 

5.076191 

5.646608 

6.113153 

5.447526 

5.702260 

5.926322 

5.702613 

5.139344 

6.193103 

5.911828 

6.113400 

5.801927 

5.342439 

5.743841 

5.609242 

6.291258 

5.809309 

5.881576 

5.766196 

5.943699 

5.701968 

5.385177 

5.978064 

6.674245 

5.848160 

4.878965 

5.590102 

6.390261 

4.814046 

4.641615 

9.955810 

5.745857 


TA8LE(34)  AVERAGE  SNR  - 49.209648 
UNFOLDING  SMOOTHING  CASE  DIFFERENCE 

ITERATIONS  ITERATIONS  NUMBER  ERROR 


37. 

0. 

1. 

-0.001493 

33. 

0. 

2. 

0.000594 

31  . 

0. 

3. 

-0.003089 

37. 

0. 

4. 

-0.000976 

33. 

0. 

5. 

-0 . 000926 

33. 

0. 

6. 

-0.001065 

34. 

0. 

7. 

-0.002187 

29. 

0. 

8. 

-0.000541 

38. 

0. 

9. 

-0.000977 

35. 

0. 

10. 

-0.001421 

34. 

0. 

11  . 

0.000791 

31  . 

0. 

12. 

-0.001903 

32. 

0. 

13. 

0.000577 

35. 

0. 

14. 

0.000836 

36. 

0. 

15. 

-0.000150 

32. 

0. 

16. 

0.000956 

30. 

0. 

17. 

-0.002197 

36. 

0. 

18. 

-0.000210 

34. 

0. 

19. 

0.000700 

31  . 

0. 

20. 

-0.001276 

31  . 

0. 

21  . 

-0.000507 

34. 

0. 

22. 

0.000163 

33. 

0. 

23. 

-0.001931 

28. 

0. 

24. 

0.000722 

35. 

0. 

25. 

-0.000179 

31  . 

0. 

26. 

0.000603 

29. 

0. 

27. 

-0 . 000469 

35. 

0. 

28. 

-0.000817 

28. 

0. 

29. 

0.000299 

34. 

0. 

30. 

-0 . 000526 

34. 

0. 

31  . 

-0.000527 

34. 

0. 

32. 

-0.001677 

35. 

0. 

33. 

-0.001036 

31  . 

0. 

34. 

0.000845 

32. 

0. 

35. 

-0.001730 

33. 

0. 

36. 

0.000313 

34. 

0. 

37. 

-0 . 000637 

33. 

0. 

38. 

0.000587 

32. 

0. 

39. 

-0.001201 

33. 

0. 

40. 

-0.002371 

34. 

0. 

41  . 

-0.000276 

28. 

0. 

42. 

-0.003555 

31  . 

0. 

43. 

0.000404 

36. 

0. 

44. 

-0.001881 

30. 

0. 

45. 

-0.001970 

29. 

0. 

46. 

-0.003016 

36. 

0. 

47. 

-0.000523 

41  . 

0. 

48. 

-0.000341 

13. 

0. 

49. 

-0.016868 

34. 

0. 

50. 

-0.001183 

MEAN  SOURED 
ERROR 


4.377389 

5.271719 

4.855147 

4 . 460999 

4.920574 

4.704947 

4.873123 

5 . 203474 

4.497455 

4.776051 

5.019979 

5.465269 

5.179381 

4.457927 

4.896879 

5.033889 

5.370633 

4.683740 

4.389916 

4.932807 

5.347022 

4.729469 

4.963380 

5.213764 

4 . 944434 

4.492838 

5.438177 

5.124867 

5.375052 


TABLE(35)  AVERAGE  SNR  - 59.051571 
UNFOLDING  SMOOTHING  CASE  DIFFERENCE 


ITERATIONS  ITERATIONS 


47. 

0. 

44. 

0. 

39. 

0. 

47. 

0. 

42. 

0. 

42. 

0. 

42. 

0. 

37. 

0. 

48. 

0. 

44. 

0. 

44. 

0. 

39. 

0. 

42. 

0. 

45. 

0. 

47. 

0. 

41  . 

0. 

38. 

0. 

46. 

0. 

44. 

0. 

39. 

0. 

40. 

0. 

44. 

0 

41  . 

0 

36. 

0 

45. 

0 

40. 

0 

37. 

0 

45. 

0 

36. 

0 

NUMBER  ERROR 


1 . 

-0.000349 

2. 

0.000314 

3. 

-0.001296 

4. 

-0.000642 

5. 

-0 . 000860 

6. 

-0.000691 

7. 

0 . 000892 

8. 

-0.001667 

9. 

0 . 000304 

10. 

0 . 000585 

11  . 

-0 . 000680 

12. 

0 . 000794 

13. 

-0 . 000385 

14. 

-0 . 000375 

15. 

0.000042 

16. 

0.000346 

17. 

-0 . 000049 

18. 

-0.000215 

19. 

-0.000834 

20. 

0 . 000075 

21  . 

-0.000911 

22. 

0.000273 

23. 

0.000840 

24. 

0.000841 

25. 

0 . 000666 

26. 

-0.001326 

27. 

0 . 000003 

28. 

-0 . 000503 

29. 

0 . 000440 

MEAN  SOURED 
ERROR 

TABLE(36) 

UNFOLDING 

ITERATIONS 

AVERAGE  SNR  = 68 
SMOOTHING 
IT ERA! IONS 

.893509 

CASE 

NUMBER 

3.816130 

57. 

0. 

1 . 

4.615512 

56. 

0. 

2. 

4.313514 

47. 

0. 

3. 

3.903140 

57. 

0. 

4. 

4.339166 

51  . 

0. 

5. 

4.138644 

51  . 

0. 

6. 

4.281169 

52. 

0. 

7. 

4.614446 

45. 

0. 

8. 

3.906325 

59. 

0. 

9. 

4.186926 

54. 

0. 

10. 

4.406425 

54. 

0. 

11  . 

4.814402 

49. 

0. 

12. 

4.573833 

52. 

0. 

13. 

3.911957 

55. 

0. 

14. 

4.258156 

58. 

0. 

15. 

4.424056 

51  . 

0. 

16. 

4.760521 

47. 

0. 

17. 

4.097522 

56. 

0. 

18. 

3.840627 

53. 

0. 

19. 

4.359587 

48. 

0. 

20. 

4.728077 

49. 

0. 

21  . 

4.143264 

55. 

0. 

22. 

4.370605 

51  . 

0. 

23. 

4.631270 

45. 

0. 

24. 

4.326796 

56. 

0. 

25. 

3.972850 

48. 

0. 

26. 

4.827756 

46. 

0. 

27. 

4 . 492032 

55. 

0. 

28. 

4.773421 

45. 

0. 

29. 

4.449331 

53. 

0. 

30. 

4.091274 

53. 

0. 

31. 

4.390394 

53. 

0. 

32. 

4.229383 

55. 

0. 

33. 

4.844006 

50. 

0. 

34. 

4.434827 

51  . 

0. 

35. 

4.481293 

53. 

0. 

36. 

4.416687 

53. 

0. 

37. 

4.550170 

54. 

0. 

38. 

4.411036 

50. 

0. 

39. 

4.177545 

50. 

0. 

40. 

4.523689 

54. 

0. 

41  . 

5.188061 

43. 

0. 

42. 

4.515630 

49. 

0. 

43. 

3.744028 

55. 

0. 

44. 

4.384457 

46. 

0. 

45. 

4.977231 

45. 

0. 

46. 

3.640261 

55. 

0 

47. 

3.470092 

63. 

0. 

48. 

9.566791 

14. 

0. 

49. 

4.381883 

55. 

0 

50. 

DIFFERENCE 

ERROR 


9.000808 
0.000546 
0 . 000799 
0 . 000052 
0.000199 
0 . 000384 
0.000187 
-0.000742 
0 . 000420 
0 . 000932 
-0.000161 
-0 . 000046 
0 . 000465 
-0 . 000082 
0.000966 
-0.000172 
0.000619 
0 . 000653 
0 . 000664 
0.000185 
0 . 000526 
-0.000083 
-0.000018 
0.000441 
0.000968 
0.000628 
-0.000004 
0.000711 
0 . 000263 
0.000809 
0.000312 

0 . 000884 

0 . 000773 
0.000342 
0.000247 
0.000051 
0.000509 
0 . 000675 
0 . 000467 
0.000747 
0 . 000467 
0 . 000928 
0 . 000343 
0.000395 
0.000231 
0 . 000908 
-0.000016 
0 . 000468 
-0.022381 
0.000178 
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TA8LE(  9)  AVERAGE  SNR  =78.735428 
MEAN  SOURED  UNFOLDING  SMOOTHING  CASE 

ERROR  ITERATIONS  ITERATIONS  NUMBER 


3.350488 

68. 

0. 

1 . 

4.057685 

69. 

0. 

2. 

3.854814 

57. 

0. 

3. 

3.444600 

67. 

0. 

4. 

3.855899 

61 . 

0. 

5. 

3.667137 

61  . 

0. 

6. 

3.791631 

62. 

0. 

7. 

4.126457 

53. 

0. 

8. 

3.421156 

70. 

0. 

9. 

3.697267 

65. 

0. 

10. 

3.898839 

64. 

0. 

11. 

4.273139 

59. 

0. 

12. 

4.061809 

63. 

0. 

13. 

3 . 459802 

65. 

0. 

14. 

3.724679 

71  . 

0. 

15. 

3.918291 

61  . 

0. 

16. 

4.245831 

57. 

0. 

17. 

3.612086 

67. 

0. 

18. 

3.385973 

63. 

0. 

19. 

3.881908 

57. 

0. 

20. 

4.206107 

60. 

0. 

21  . 

3.654736 

65. 

0. 

22. 

3.879170 

61  . 

0. 

23. 

4.139881 

54. 

0. 

24. 

3.808663 

68. 

0. 

25. 

3.537986 

57. 

0. 

26. 

4.314878 

55. 

0. 

27. 

3.964104 

67. 

0. 

28. 

4.265975 

54. 

0. 

29. 

3.944670 

64. 

0. 

30. 

3.625365 

63. 

0. 

31 . 

3 . 882276 

64. 

0. 

32. 

3.719155 

66. 

0. 

33. 

4.303123 

61  . 

0. 

34. 

3.920494 

61  . 

0. 

35. 

3.962279 

63. 

0. 

36. 

3.915021 

64. 

0. 

37. 

4.021127 

66. 

0. 

38. 

3.924364 

60. 

0. 

39. 

3.722493 

60. 

0. 

40. 

3.988779 

65. 

0. 

41  . 

4.636132 

52. 

0. 

42. 

4.018212 

59. 

0. 

43. 

3.317536 

65. 

0. 

44. 

3.930714 

55. 

0. 

45. 

4.445208 

55. 

0. 

46. 

3.213614 

64. 

0. 

47. 

3.038741 

75. 

0. 

48. 

9.463104 

14. 

0. 

49. 

3.866133 

66. 

0. 

50. 

DIFFERENCE 

ERROR 


0.000835 
0.000620 
0.000366 
0.000635 
0.000286 
0.000333 
0.000378 
0.000385 
0.000756 
0.000684 
0.000591 
0.000221 
0.000659 
0.000424 
0.000379 
0.000211 
0.000638 
0.000688 
0.000658 
0.000825 
0.000186 
0.000874 
0.000171 
0.000919 
0.000904 
0.000838 
0.000835 
0.000341 
0.000932 
0.000785 
0.000751 
0 . 000893 
0 . 000754 
0.000203 
0.000622 
0.000764 
0.000420 
0.000620 
0 . 000878 
0.000750 
0.000486 
0.000936 
0.000259 
0 . 000955 
0 . 000455 
0 . 000432 
0.000997 
0.000504 
-0.016486 
0 . 000745 
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MEAN  SOURED 
ERROR 


2.958873 

3.579777 

3.459438 

3.059096 

3.445634 

3.267578 

3.377978 

3.710816 

3.014831 

3.283566 

3.468963 

3.813477 

3.621266 

3.078060 

3.276158 

3.489793 

3.802733 

3.202773 

3.003777 

3.473983 

3.757374 

3.240461 

3.462508 

3.716262 

3.367337 

3.166491 

3.872923 

3.517356 

3.828262 

3.513269 

3.228714 

3.448461 

3.290135 

3.840518 

3.485730 

3.522437 

3.487883 

3.568776 

3.505771 

3.330769 

3.538153 

4.163326 

3.594229 

2.953186 

3.540785 

3.988721 

2.854457 

2.676266 

9.390097 

3.426585 


TABLE(10) 

AVERAGE  SNR  =88. 

,577362 

UNFOLDING 

SMOOTHING 

CASE 

DIFFERENCE 

ITERATIONS 

ITERATIONS 

NUMBER 

ERROR 

79. 

0. 

1 . 

0.000918 

82. 

0. 

2. 

0.000891 

67. 

0. 

3. 

0.000602 

78. 

0. 

- 4 . 

0.000519 

71  . 

0. 

5. 

0.000630 

71  . 

0. 

6. 

0.000504 

72. 

0. 

7. 

0.000711 

62. 

0. 

8. 

0.000412 

82. 

0. 

9. 

0.000547 

76. 

0. 

10. 

0.000757 

75. 

0. 

11  . 

0.000637 

69. 

0. 

12. 

0.000669 

75. 

0. 

13. 

0.000571 

75. 

0. 

14. 

0.000840 

83. 

0. 

15. 

0.000661 

71 . 

0. 

16. 

0.000671 

68. 

0. 

17. 

0 . 000384 

78. 

0. 

18. 

0.000889 

73. 

0. 

19. 

0.000709 

67. 

0. 

20. 

0 . 000672 

71  . 

0. 

21  . 

0.000507 

76. 

0. 

22. 

0.000891 

71  . 

0. 

23. 

0.000545 

64. 

0. 

24. 

0.000692 

81  . 

0. 

25. 

0.000644 

67. 

0. 

26. 

0.000373 

65. 

0. 

27. 

0.000950 

78. 

0. 

28. 

0.000937 

64. 

0. 

29. 

0.000850 

76. 

0. 

30. 

0.000659 

74. 

0. 

31  . 

0.000579 

76. 

0. 

32. 

o . 000630 

77. 

0. 

33. 

0.000849 

72. 

0. 

34. 

0.000609 

71 . 

0. 

35. 

0 . 000904 

74. 

0. 

36. 

0.000719 

75. 

0. 

37. 

0.000727 

78. 

0. 

38. 

0.000880 

71  . 

0. 

39. 

0.000791 

71 . 

0. 

40. 

0.000487 

76. 

0. 

41  . 

0.000717 

62. 

0. 

42. 

0.000544 

69. 

0. 

43. 

0.000535 

76. 

0. 

44. 

0.000825 

64. 

0. 

45. 

0.000956 

65. 

0. 

46. 

0.000667 

74. 

0. 

47. 

0.000967 

87. 

0. 

48. 

0.000639 

14. 

0. 

49. 

-0.012362 

78. 

0. 

50. 

0 . 000690 
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TA8LE(1 1 ) AVERAGE  SNR  =98.419296 


MEAN  SOURED 
ERROR 

UNFOLDING 

ITERATIONS 

SMOOTHING  CASE 

ITERATIONS  NUMBER 

2.626233 

90. 

0. 

1 . 

3.167766 

96. 

0. 

2. 

3.114451 

77. 

0. 

3. 

2.731909 

88. 

0. 

4. 

3.092509 

81  . 

0. 

5. 

2.924955 

81  . 

0. 

6. 

3.023781 

82. 

0. 

7. 

3.351581 

71  . 

0. 

8. 

2.672093 

93. 

0. 

9. 

2.929799 

87. 

0. 

10. 

3.100621 

86. 

0. 

11  . 

3.417119 

80. 

0. 

12. 

3.239159 

87. 

0. 

13. 

2.750608 

86. 

0. 

14. 

2.895644 

95. 

0. 

15. 

3.121251 

82. 

0. 

16. 

3.418443 

78. 

0. 

17. 

2.852350 

90. 

0. 

18. 

2.678834 

83. 

0. 

19. 

3.121981 

77. 

0. 

20. 

3.367224 

82. 

0. 

21  . 

2.886572 

87. 

0. 

22. 

3.104513 

81  . 

0. 

23. 

3.348005 

74. 

0. 

24. 

2.990007 

93. 

0. 

25. 

2.847014 

76. 

0. 

26. 

3.486693 

76. 

0. 

27. 

3.132323 

91  . 

0. 

28. 

3.447480 

74. 

0. 

29. 

3.140291 

88. 

0. 

30. 

2.888945 

84. 

0. 

31  . 

3.076130 

87. 

0. 

32. 

2.925455 

88. 

0. 

33. 

3.438806 

84. 

0. 

34. 

3.113513 

82. 

0. 

35. 

3.146023 

85. 

0. 

36. 

3.118539 

87. 

0. 

37. 

3.177709 

91  . 

0. 

38. 

3.142760 

82. 

0. 

39. 

2.991192 

81  . 

0. 

40. 

3.153727 

87. 

0. 

41  . 

3.753343 

72. 

0. 

42. 

3.228240 

79. 

0. 

43. 

2.639774 

87. 

0. 

44. 

3.199788 

74. 

0. 

45. 

3.590868 

76. 

0. 

46. 

2.548767 

84. 

0. 

47. 

2.369545 

98. 

0. 

48. 

9.336480 

14. 

0. 

49. 

3.049736 

90. 

0. 

50. 

DIFFERENCE 

ERROR 


0.000933 
0.000801 
0.000941 
0.000895 
0.000957 
0.000656 
0.000993 
0.000633 
0.000793 
0.000865 
0.000762 
0.000581 
0.000705 
0.000690 
0.000791 
0.000554 
0.000924 
0.000699 
0.000700 
0.000718 
0.000887 
0.000917 
0.000864 
0.000743 
0.000900 
0.000762 
0.000750 
0.000686 
0.000985 
0.000821 
0.000985 
0.000974 
0.000918 
0.000675 
0.000595 
0.000781 
0.000690 
0.000797 
0.000896 
0.000960 
0.000923 
0.000590 
0.000828 
0.000804 
0.000877 
0.000515 
0.000957 
0 . 000997 
-0.009374 
0.000709 


TABLEC 1 2)  AVERAGE  SNR  -108.261200 
MEAN  SOURED  UNFOLDING  SMOOTHING  CASE 

ERROR  ITERATIONS  ITERATIONS  NUMBER 


2.341703 

101  . 

0. 

1 . 

2.813632 

109. 

0. 

2. 

2.810335 

88. 

0. 

3. 

2.449771 

99. 

0. 

4. 

2.784625 

92. 

0. 

5. 

2.628855 

91  . 

0. 

6. 

2.716525 

93. 

0. 

7. 

3.037878 

80. 

0. 

8. 

2.379953 

104. 

0. 

9. 

2.624859 

98. 

0. 

10. 

2.782291 

97. 

0. 

11  . 

3.074002 

90. 

0. 

12. 

2.905846 

99. 

0. 

13. 

2.469040 

96. 

0. 

14. 

2.571084 

107. 

0. 

15. 

2.803299 

92. 

0. 

16. 

3.081276 

89. 

0. 

17. 

2.551618 

101  . 

0. 

18. 

2 . 400336 

93. 

0. 

19. 

2.815687 

87. 

0. 

20. 

3.024987 

94. 

0. 

21  . 

2.582170 

98. 

0. 

22. 

2.793146 

92. 

0. 

23. 

3.025605 

84. 

0. 

24. 

2.664057 

106. 

0. 

25. 

2.569459 

85. 

0. 

26. 

3.147472 

87. 

0. 

27. 

2.800477 

103. 

0. 

28. 

3.112847 

85. 

0. 

29. 

2.814332 

101  . 

0. 

30. 

2.593903 

95. 

0. 

31  . 

2.752816 

99. 

0. 

32. 

2.612993 

99. 

0. 

33. 

3.087935 

96. 

0. 

34. 

2.794135 

92. 

0. 

35. 

2.821226 

96. 

0. 

36. 

2.798357 

98. 

0. 

37. 

2.838773 

104. 

0. 

38. 

2.826103 

93. 

0. 

39. 

2.693155 

92. 

0. 

40. 

2.821915 

99. 

0. 

41  . 

3.394582 

82. 

0. 

42. 

2.908714 

90. 

0. 

43. 

2.368442 

98. 

0. 

44. 

2.899905 

84. 

0. 

45. 

3.242995 

86. 

0. 

46. 

2.286093 

94. 

0. 

47. 

2.106506 

1 10. 

0. 

48. 

9.295791 

14. 

0. 

49. 

2.725851 

101  . 

0. 

50. 

DIFFERENCE 

ERROR 


0.000880 
0.000936 
0.000864 
0.000821 
0.000862 
0.000735 
0.000844 
0.000844 
0.000892 
0.000927 
0.000853 
0 . 000942 
0.000850 
0.000913 
0.000805 
0.000847 
0.000938 
0.000859 
0 . 000638 
0.000779 
0.000871 
0.000904 
0.000734 
0.000834 
0.000801 
0.000981 
0.000765 
0.000844 
0.000734 
0.000772 
0.000895 
0.000900 
0.000923 
0.000829 
0.000759 
0.000832 
0.000999 
0.000793 
0.000985 
0.000942 
0.000769 
0.000728 
0.000689 
0.000772 
0.000945 
0.000923 
0.000909 
0.000934 
-0.007121 
0.000962 


TABLE(13)  AVERAGE  SNR  -118.103104 
MEAN  SOURED  UNFOLDING  SMOOTHING  CASE 

ERROR  ITERATIONS  ITERATIONS  NUMBER 


2.097982 

111. 

0. 

1 . 

2.508007 

122. 

0. 

2. 

2.542099 

99. 

0. 

3. 

2.206349 

109. 

0. 

4. 

2.515352 

103. 

0. 

5. 

2.371480 

101  . 

0. 

6. 

2.449123 

104. 

0. 

7. 

2.762050 

89. 

0. 

8. 

2.129250 

115. 

0. 

9. 

2 . 360443 

109. 

0. 

10. 

2.505529 

108. 

0. 

11  . 

2 . 773528 

101  . 

0. 

12. 

2.614076 

Ill  . 

0. 

13. 

2.223690 

107. 

0. 

14. 

2.293918 

118. 

0. 

15. 

2.526886 

102. 

0. 

16. 

2 . 785006 

100. 

0. 

17. 

2.291329 

112. 

0. 

18. 

2.160933 

102. 

0. 

19. 

2.547692 

97. 

0. 

20. 

2.724588 

106. 

0. 

21  . 

2.318899 

109. 

0. 

22. 

2.522392 

102. 

0. 

23. 

2.742043 

94. 

0. 

24. 

2.383109 

118. 

0. 

25. 

2.325840 

95. 

0. 

26. 

2.848201 

98. 

0. 

27. 

2.512362 

1 15. 

0. 

28. 

2.819367 

95. 

0. 

29. 

2.529835 

113. 

0. 

30. 

2.337166 

106. 

0. 

31  . 

2.471716 

Ill  . 

0. 

32. 

2.343591 

110. 

0. 

33. 

2.780166 

108. 

0. 

34. 

2.517677 

102. 

0. 

35. 

2 . 539248 

107. 

0. 

36. 

2.517691 

110. 

0. 

37. 

2.544987 

116. 

0. 

38. 

2 . 547848 

105. 

0. 

39. 

2.431410 

103. 

0. 

40. 

2 . 535444 

1 10. 

0. 

41  . 

3.078894 

92. 

0. 

42. 

2.629865 

100. 

0. 

43. 

2.133412 

108. 

0. 

44. 

2.633682 

95. 

0. 

45. 

2.935690 

97. 

0. 

46. 

2.058795 

104. 

0. 

47. 

1 .881503 

121  . 

0. 

48. 

9 . 264070 

14. 

0. 

49. 

2.444566 

1 13. 

0. 

50. 

DIFFERENCE 

ERROR 


0 . 000994 
0.000965 
0.000842 
0.000973 
0.000821 
0.000743 
0.000764 
0 . 000988 
0 . 000896 
0 . 000934 
0 . 000892 
0 . 000889 
0 . 000940 
0 . 000772 
0.000927 
0 . 000985 
0 . 000956 
0.000921 
0.000814 
0 . 000805 
0 . 000876 
0.000854 
0.000910 
0.000894 
0.000882 
0.000742 
0.000818 
0.000922 
0.000907 
0.000954 
0.000817 
0.000834 
0 . 000875 
0.000954 
0.000819 
0 . 000848 
0.000979 
0 . 000943 
0.000791 
0 . 000925 
0 . 000878 
0 . 000844 
0 . 000885 
0 . 000938 
0 . 000740 
0.000917 
0.000831 
0.001000 
-0 . 005380 
0 . 000863 
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MEAN  SOURED 
ERROR 


TABLE(14)  AVERAGE  SNR  -127.945099 
UNFOLDING  SMOOTHING  CASE 

ITERATIONS  ITERATIONS  NUMBER 


1.887331 

121  . 

0. 

1 . 

2.243664 

135. 

0. 

2. 

2.304965 

110. 

0. 

3. 

1 .993297 

120. 

0. 

4. 

2.279736 

113. 

0. 

5. 

2.147656 

110. 

0. 

6. 

2.216105 

114. 

0. 

7. 

2.517252 

99. 

0. 

8. 

1 .913868 

125. 

0. 

9. 

2.130076 

120. 

0. 

10. 

2.263780 

119. 

0. 

11  . 

2.510013 

112. 

0. 

12. 

2.358006 

123. 

0. 

13. 

2.010548 

117. 

0. 

14. 

2.055396 

129. 

0. 

15. 

2.284445 

113. 

0. 

16. 

2.523896 

Ill  . 

0. 

17. 

2.064949 

123. 

0. 

18. 

1.953299 

Ill  . 

0. 

19. 

2.312209 

107. 

0. 

20. 

2.460414 

118. 

0. 

21  . 

2.091081 

119. 

0. 

22. 

2.285162 

112. 

0. 

23. 

2.491811 

104. 

0. 

24. 

2.139414 

130. 

0. 

25. 

2.112908 

104. 

0. 

26. 

2.583515 

109. 

0. 

27. 

2.261248 

127. 

0. 

28. 

2.560396 

105. 

0. 

29. 

2.279140 

126. 

0. 

30. 

2.113713 

116. 

0. 

31  . 

2.227447 

122. 

0. 

32. 

2.111085 

120. 

0. 

33. 

2.508468 

121. 

0. 

34. 

2.277049 

112. 

0. 

35. 

2.293249 

118. 

0. 

36. 

2.271637 

122. 

0. 

37. 

2.288945 

128. 

0. 

38. 

2.305472 

115. 

0. 

39. 

2.200961 

114. 

0. 

40. 

2.286188 

121  . 

0. 

41  . 

2.800023 

102. 

0. 

42. 

2.384818 

110. 

0. 

43. 

1.928265 

118. 

0. 

44. 

2.398267 

105. 

0. 

45. 

2.664092 

108. 

0. 

46. 

1.861957 

113. 

0. 

47. 

1.687315 

132. 

0. 

48. 

9.238772 

14. 

0. 

49. 

2.201061 

124. 

0. 

50. 

DIFFERENCE 

ERROR 


0.000989 
0.000915 
0.000820 
0.000860 
0 . 000976 
0.000919 
0.000883 
0.000781 
0.000993 
0 . 000901 
0.000882 
0 . 000837 
0.000974 
0.000826 
0.000923 
0.000817 
0.000945 
0.000911 
0.000858 
0.000789 
0.000853 
0.000947 
0 . 000987 
0.000903 
0.000881 
0.000805 
0.000843 
0.000941 
0.000990 
0.000922 
0.000912 
0.000909 
0.000967 
0.000875 
0.000806 
0.000828 
0.000948 
0.000993 
0.000996 
0.000880 
0.000912 
0.000910 
0.000983 
0.000987 
0.000849 
0.000911 
0.000937 
0 . 000976 
-0 . 004007 
0 . 000909 
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MEAN  SOURED 
ERROR 


TABLE(15)  AVERAGE  SNR  -137.787003 
UNFOLDING  SMOOTHING  CASE 

ITERATIONS  ITERATIONS  NUMBER 


1 .704366 

131 . 

2.015373 

147. 

2.095892 

120. 

1 . 807654 

130. 

2.071035 

124. 

1 .951486 

119. 

2.011517 

124. 

2.301026 

108. 

1 .727072 

135. 

1.929509 

130. 

2.052762 

129. 

2.279044 

122. 

2.132771 

135. 

1 .824811 

126. 

1.850145 

139. 

2.073756 

122. 

2.293240 

122. 

1 . 868229 

133. 

1 . 772235 

120. 

2 . 1 05498 

116. 

2.228675 

129. 

1 . 892300 

129. 

2.076458 

122. 

2 . 270367 

114. 

1 .928246 

141  . 

1 .925304 

113. 

2 . 349963 

119. 

2.041641 

139. 

2.330240 

116. 

2 . 059529 

138. 

1 .917727 

126. 

2.013772 

133. 

1 .908670 

130. 

2 . 269894 

133. 

2.067521 

121  . 

2.078674 

128. 

2 . 055332 

134. 

2.065138 

140. 

2.091265 

126. 

1 .998621 

124. 

2 . 068344 

132. 

2.552916 

112. 

2.167701 

121 . 

1 .748501 

128. 

2.188822 

115, 

2.423471 

119 

1 . 689867 

122 

1 .518957 

143 

9.218218 

14 

1 . 988698 

135 
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TA8LE(16)  AVERAGE  SNR  -147.628906 
MEAN  SOURED  UNFOLDING  SMOOTHING  CASE 

ERROR  ITERATIONS  ITERATIONS  NUMBER 


1 .545688 

140. 

0. 

1 . 

1.817761 

158. 

0. 

2. 

1.910510 

130. 

0. 

3. 

1.645413 

139. 

0. 

4. 

1 .887395 

134. 

0. 

5. 

1.778827 

128. 

0. 

6. 

1 .831177 

134. 

0. 

7. 

2.108637 

117. 

0. 

8. 

1 .564238 

145. 

0. 

9. 

1 .753422 

140. 

0. 

10. 

1.867105 

139. 

0. 

11  . 

2.075200 

132. 

0. 

12. 

1 .934235 

147. 

0. 

13. 

1.660562 

136. 

0. 

■ 14. 

1.671890 

149. 

0. 

15. 

1 .887457 

132. 

0. 

16. 

2.090003 

132. 

0. 

17. 

1.695810 

143. 

0. 

18. 

1 .614488 

128. 

0. 

19. 

1.922720 

125. 

0. 

20. 

2.024246 

140. 

0. 

21  . 

1 .718124 

139. 

0. 

22. 

1 .892210 

132. 

0. 

23. 

2.074876 

123. 

0. 

24. 

1.743867 

152. 

0. 

25. 

1.760355 

121  . 

0. 

26. 

2.141718 

130. 

0. 

27. 

1 .849927 

150. 

0. 

28. 

2.127962 

125. 

0. 

29. 

1.865989 

150. 

0. 

30. 

1.745181 

136. 

0. 

31  . 

1.827227 

143. 

0. 

32. 

1 .731631 

140. 

0. 

33. 

2.059274 

145. 

0. 

34. 

1 .883523 

130. 

0. 

35. 

1 .890053 

138. 

0. 

36. 

1 .865647 

145. 

0. 

37. 

1 .868959 

152. 

0. 

38. 

1 .903255 

136. 

0. 

39. 

1.819784 

134. 

0. 

40. 

1 .878180 

142. 

0. 

41  . 

2.333383 

122. 

0. 

42. 

1 .977498 

130. 

0. 

43. 

1 .590406 

138. 

0. 

44. 

2.002089 

125. 

0. 

45. 

2.210823 

129. 

0. 

46. 

1 .538717 

131  . 

0. 

47. 

1.374266 

152. 

0. 

48. 

9.201257 

14. 

0. 

49. 

1.803720 

145. 

0. 

50. 

DIFFERENCE 

ERROR 


0.000931 

0.000947 

0.000959 

0.000971 

0.000928 

0.000966 

0.000913 

0.000859 

0.000949 

0.000963 

0.000988 

0.000949 

0.000917 

0.000882 

0.000953 

0.000912 

0.000960 

0.000985 

0.000894 

0.000965 

0.000941 

0.000908 

0.000955 

0.000967 

0.000921 

0.000906 

0.000924 

0.000948 

0.000975 

0.000980 

0.000893 

0.000966 

0.000920 

0.000919 

0.000955 

0.000934 

0.000921 

0.000927 

0.000969 

0.000959 

0.000937 

0.000901 

0.000980 

0.000901 

0.000905 

0.000970 

0.000900 

0.000972 

-0.001993 

0.000925 


oooooooooooooooooo 
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APPENDIX  B 


A I ways-Conve r gen t for  Positive  Data  (Narrow  Guassian) 


See  E.J.  Murphy,  1986  M.S.  Thesis  U.N.O.  For  Documentation. 


FORTRAN  PROGRAM  FOR  DECONVOLUTION  - DCONP . FORXX 
GM  TRANSFORM  HAS  LARGEST  ACTUAL  MAGN I TUDE  OF  1 . 

USES  ITERATIVE  TECHNIQUE.  HANDLES  POSITIVE  GOING  DATA 
AUGUST  1984 

READS  DATA  FILE  FOR 20 . DAT  AND  FOR 21 .DAT 
WRITES  FOR 2 2 . DAT  TO  FOR 3 7 .DAT  AS  STANDARD  OUTPUT 
WRITES  FOR38.DAT  TO  FOR55.DAT  AS  NON-STANDARD  OUTPUT 
WRITES  FOR 59 . DAT  - FOURIER  DECON , X AND  Y 
FOR  PLOTTER  , OR  I G I NAL  Wl  NDQ/V 

WRITES  FOR 60 . DAT  - LAST  SMOOTHING,  XY  FOR  PLOTTER, 
ORIGINAL  WINDO/V 

WRITES  FOR61.DAT  - FOURIER  DECON,  5 NUMBERS/LIN 
FOR  LPT,  2048  PTS 

WRITES  FOR62.DAT  - FOURIER  DECON,  XY  FOR 

PLOTTER,  2048  PTS 

WRITES  FOR63.DAT  - IERRH,  IERRF 

G( I ) - RESPONSE  (APPARATUS)  FUNCTION 

H( I ) -BROADENED  FUNCTION 
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DIMENSION  XX (2048)  ,H(2081 ,3)  ,GS(256)  ,HO(  1 x 

DIMENSION  G(  2Q48 ) ,GNB/V(257)  , I 10UT(23)  ,QAZ(  10000) 

COMPLEX  X( 2048 ) ,GM(257) ,CAPG(2048) ,Z(2048) 

CONMDN  X , N I T , NFT  , I SU  , I ST , NNS  , I 10UT  , XX  , I TTY 

RESPONSE  AND  BROADENED  FUNCTIONS  ARE  READ  FROM  DATA  FILE 


1-1 

105  READ (81 , 7 , END- 110)  G( I ) 

7 FORMAT  ( 2G ) 

111  FORMAT (4G) 

1-1+1 
GOTO  105 

110  NG  - I - 1 

200  FORMAT  (1PE16.6) 

I - 1 

120  READ( 82, 1. END-125)  HO( I ) 

I - 1+1 
GOTO  120 

125  NHOR I G— I— 1 

NH  -NHOR I G 
NHSV  - NH 
DO  45  I - 1 , NH 
45  XX( I ) - 1-1 


C FIRST  MOMENT  CALCULATION 

SUM  - 0. 

DO  20  I - 1 , NG 
GS( I )-G( I ) 

C SUM  - SUM  OF  G 

C SUM2  - FIRST  MOMENT  OF  G 

20  SUM  - SUM+G ( I ) 

C TYPE  122,  SUM 

122  FORMAT  ('  SUM  - * .1PE16.6) 

C FIND  FIRST  MOMENT  - FIND  ORIGIN 

SUM2  - 0. 

DO  30  I - 1 , NG 

41  SUM2-SUM2  + I *G( I ) 

30  CONT I NUE 

C TYPE  201.SUM2 

201  FORMAT  (’  SUM2  - MPE16.6) 

42  SUM2-SUM2 / SUM 

C40  ISUM2  - SUM2  +0.5 

C TYPE  43 

C43  FORMAT  ( * USE  SUM2  OR  USER  I NPUT , 1 OR  2?  * $ ) 

C ACCEPT  71.JSUI 

C GOTO  (46,44), JSU I 

C44  TYPE  50 

C50  FORMAT  ( ' ENTER  I NDEX  OF  OR  I G I N ’ $ ) 

C ACCEPT  7,  SUM2 

C NORMAL  I ZE  G 

48  DO  21  1=1 , NG 
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C 

21 

C 

C49 

Cl 

C 

1 1 

C 

C 

C 

C 

71 

C 

C72 

C 


80 

C 

C60 

C 


C 

C61 

C 


C 

C62 

C 

C 

C63 

C 

68 

C 

22 


54 

C 

55 
C 

C 


GS ( I )-GS( I ) /SUM 

G( I )-G( I ) /SUM 

PROGRAM  SPECIFICATIONS 


TYPE  1 ^ 

FORMAT ('  NUMBER  OF  SMOOTHINGS  AND  UNFOLDINGS  (213) 

ACCEPT*,  NS,  NU 
NU-10 

FORMAT  (213) 

NFT-NUM  OF  POINTS  IN  FOURIER  DOMAIN  FOR  INVERSE 


) 


F I LTER  * 2048 

NIT-NO.  OF  PTS . IN  FOUR.  DOM.  FOR  CALC.  OF  GM,  MAX  - 256 
CHOOSE  16,32,64,128,256  - SHOULD  BE  > 2 * NG  I F POSSIBLE 
FORMAT ( I ) 

NFT  = 2048 
TYPE  72 

FORMAT ( ' NO.  OF  PTS.  IN  TRANSFORM  FOR  MODIFIED  G-  '<) 

ACCEPT  71, NIT 

NIT-32 

DO  80  l-NH+1 , NFT 
XX(  I ) - I - 1 
TYPE  60 

FORMAT ('  ONLY  SMOOTHINGS  0,S  AND  U 1 '$) 

ACCEPT  71, I SU 
ISU-1 

IF  ( ISU  .EQ.  0)  GOTO  68 
IF  (NU  .EQ.  0)  GO  TO  68 
TYPE  61 

FORMAT (’  STANDARD  OUTPUT?  NO-O  '$) 

ACCEPT  71 , 1ST 


I ST- 1 
NNS-0 
TYPE  62 

FORMAT ( ' HOW  MANY  NON-STANDARD  OUTPUTS?  '$) 

ACCEPT  71 , NNS 
IF(NNS.EQ.O)  GO  TO  68 

TYPE  63  _ . 

FORMAT ('  TYPE  NON-STANDARD  ITERATIONS.  ONE  PER  LINE  ) 

ACCEPT  71 . ( I 10UT( I ) , 1-1 ,NNS) 

CONT I NUE 
TAKE  FFT  OF  G 
DO  22  1-1 ,NG 
X ( I )-CMPLX(G( I ) ,0. ) 

ND-NG+1 

DO  54  l-ND.NFT 
X( I ) -CMPLX( 0 . ,0. ) 

CALL  FFT ( NFT , X , CAPG , - 1 . ) 

TYPE  55, ( CAPG( I ) , 1-1 ,2) 

FORMAT  ( 1PE16.6.E16.6) 

PHASE  MULT  TO  GET  CAPG  CORRESPONDING  TO  SMALL  G 
1 IN  RIGHT  ORDER 

USE  SH I FT  THEOREM  TO  PUT  ORIGIN  AT  FI RST  MOMENT 
Y-2*3 . 1415926* (SUM2-1 ) /NFT 


297 


N21-(NFT/2)+1 

DO  140  1-1 ,NFT  , , 4 

IF  (I.LT.N21)  Z( I )-CMPLX(COS( ( 1-1 )*Y) ,SIN( ( 1-1 )*Y) ) 
IF  (I.EQ.N21)  Z( I )-CMPLX(COS( (NFT/2) *Y) ,0. ) 

IF  (I.GT.N21)  Z( I )-CMPLX(COS( ( I -NFT-1 ) *Y) , 

1 S I N ( ( I -NFT-1 )*Y) ) 

140  CAPG( I )-CAPG( I ) *Z( I ) 

C TYPE  7 , ( CAPG ( I ) , 1-1 ,2) 

C FIND  FFT  OF  GS 

DO  37  I -1 ,NG 

37  X ( I ) - ( CMP  LX  ( GS  ( I ) , 0 . ) ) 

DO  655  l-ND,NIT 
655  X( I )-CMPLX(0. .0.  ) 

CALL  FFT ( N I T , X , GM , - 1 . ) 

C TYPE  7 , CAPG( 1 ) 

C TYPE  71 , NIT 

TEMP  - CABS ( GM ( 1 ) ) 

DO  23  I - 2 , (NIT/2)  + 1 

23  IF  ( CABS ( GM ( I ) ) . GT . TEMP ) TEMP  - CABS (GM( I ) ) 

C TYPE  79 

C79  FORMAT  ('  DO  YOU  WANT  MAG  GM?  Y-1,N-2  '$) 

C ACCEPT  7 1 , MGM 

MGM-1 

DO  24  1-1 ,NIT 
XMAG-CABS ( GM ( I ) ) /TEMP 
GOTO  (81,24) ,MGM 

81  IF  (I.GT.((NIT/2)+1))  GOTO  24 

C TYPE  200 , XMAG 

C SET  IMAGINARY  GM  TO  ZERO 

24  GM( I )-CMPLX(XMAG.O. )*(-1 )**( 1-1 ) 

C TAKE  INVERSE  FFT  OF  GM 

CALL  FFT (NIT ,GM,X,+1 . ) 

DO  25  I - 1 ,NIT 

25  GNBW(  I ) - REAL (X( I ) ) 

NG  - NIT  + 1 

M - (NIT/2)  + 1 
GNEW(  1 ) - GNEW(  1 ) / 2 . 

GNB/V(  NG)-GNEW(  1 ) 

NS- 1 

C DECONVOLUTION  CALCULATION  PERFORMED  IN  SUBROUTINE 

31  CALL  DCON  ( NG , NH , NS  , M , H , GNBA/,  CAPG , QAZ , NHOR  I G , HO ) 

C CALL  EXIT 

END 
C 

SUBROUT  I NE  DCON ( NG , NH , NS , M , H , G , CAPG , QAZ , NHOR I G , HO ) 
C SMOOTHING  AND  UNFOLDING  SUBROUTINE 

C ALWAYS-CONVERGENT  ITERATIVE  NOISE  REMOVAL  AND 

C DECONVOLUT I ON 

C NS  - NUMBER  OF  SMOOTHINGS,  >=0 

C NU  - NUMBER  OF  UNFOLDINGS,  >«0 

C M - I OF  THE  PEAK  OF  G ( I ) 

C NH  - NUMBER  OF  POINTS  OF  H 


298 


C 


776 


775 

8 

9 

13 

14 

15 


C 

C 


NG  - NUMBER  OF  POINTS  OF  G 

DIMENSION  H( 2081 ,3) ,G(257) , F ( 2081 ) ,HI (2081 ) , 
1 M2 ( 208 1 ) , XX ( 2048 ) , GUS ( 1 000 ) 

D I MENS  ION  FS ( 2048 ) , M3  ( 208 1 ) , K ( 208 1 ) , 

1 I 10UT ( 23 ) , GO  ( 2048 ) , I TERAVE ( 1 000 ) 

D I MENS  I ON  XSME ( 1 000 ) , QAZ ( 1 0000 ) , HP ( 1 000 ) , 

1 VAR (1000) ,Q( 200) ,XMSEAVE( 1000) 

DIMENSION  LOP( 1000) ,SH( 1200, 1 ) ,AN( 200) 
COMPLEX  CAPG( 2048 ) ,CAPHF(2048) ,X(2048) 

COMMON  X , N I T , NFT , I SU , I ST , NNS , I 10UT , XX , I TTY 
1-1 

READ (80, 281 , END-775 ) GUS ( I ) 

1-1+1 

GO  TO  776 
LGUS- I - 1 
NHN-NH 

XNH  - FLOAT(NH) 

NHEAD  - NG  - M 

NTAIL  - M - 1 

NHH1  - NHEAD  + NH  + 1 


TYPE*, 'TYPE  IN  THE  FOLLOWING  INFORMATION  IN  ONE  LINE' 
TYPE*]'  0)  IS  THE  DATA  NOISY  ? Y-1  , N-0 ' 

ACCEPT* , IYN 
IF(IYN.EQ.O)  NS-0 


TYPE* , ' 

TYPE  BEG 
TYPE*,’  2) 
TYPE*,'  3) 
BEG  IN, END' 
TYPE*,'  4) 
STARTED  AT  ? 
TYPE*,'  5) 
type* , ' 6 ) 

TYPE*,'  7) 
ACCEPT* , I TRB 


1 ) HOW  MANY 
N, END, STEP' 


SNR  CASES  DO  YOU  Wl  SH  ? 


HOW  MANY  CASES  FOR  EACH  SNR  ? * 
NUMBER  OF  SMOOTHING  ITERATIONS  ? 

RESULT  OF  EACH  SNR  CASE  TO  BE 
I 40UT ' 

MAX  UNFOLDING  ITERATION  ? NU' 
snr  sd  des i red  ? 

WHAT  CASE  DO  YOU  VW I SH?  I BN , I NN ' 

I TREN , I TRST , N , I LB , I LE , I 40UT , NU , ds 


I BN,  INN 


DO  660  I TRUESNR- I TRB , I TREN , I TRST 
NH-NHOR I G 
TYPE* , 'N-?' 

ACCEPT* ,N 
JRAN-777 
1-1 
I Y-0 

CALL  AM  I N I ( I Y , HO , NH , 1 . ,0,1 , JRAN , SNR ,QAZ , i truesnr , I ,ds) 
1-0. 

OLDSNR-SNR 

SF«(OLDSNR/ I TRUESNR ) **2 
SF-SF-0 . 1 
JRAN-777 
DO  661  JN-1  , N 


921 


661 


333 


664 

16 

17 

18 

19 

20 
21 
22 

23 

24 
55 
60 
C 

65 

67 

68 
69 


654 


653 

C 

70 


CALL  AMI N I ( I Y,HO,NH,SF , I OUT , JN , JRAN , SNR , QAZ , 
1 i t ruesnr , I , ds ) 

BAD= ' , SNR 

I F ( I Y . EQ. 0 ) go  to  921 

AN ( JN ) -SNR 

P-0. 

DO  333  I A- 1 , N 
P-AN ( I A ) +P 
AVRSNR-P / N 
TYPE* , AVRSNR 
Jl JI-1 

DO  665  I NC= I BN , I NN 
NH-NHOR I G 

IQA-( I NC*NH ) - ( NH-1 ) 

IV\£-INC*NH 

L-1 

DO  664  IED-IQA,  IW5 
H( L , 1 ) -QAZ ( I ED ) 

L-L  + 1 

WRITE(7, 1001 ) ( I ,H( I , 1 ) , 1-1 ,NHN) 

DO  19  IH  - 1 ,NH 
I HI  - NHH1  - IH 
IH2  - NH  + 1 - IH 
H( IH1 , 1 ) - H ( I H2 ( 1 ) 

NH  - NH  + NHEAD  + NTAIL 
DO  22  IH3  - 1 , NHEAD 
H ( I H3 , 1 ) - 0.0 
DO  24  IH4  - NHH1 , NH 
H( I H4 , 1 ) - 0. 

XNH I - 1./XNH 
ERRH  - 0. 

HI  - RECIPROCAL  ARRAY  OF  H 
DO  69  13  - 1 -NH 
IF  ( H ( 13.1))  68.67.68 
HI ( 13)  - 0. 

GOTO  69 

HI (13)  - 1./H( 13,1) 

CONT I NUE 

DO  654  IK-1 ,NH 
SH( IK, 1 )-H( IK,  1 ) 

DO  666  I L-l LB, I LE 
NS-  I L 

DO  653  IK-1 ,NH 
H ( IK, 1 )-SH( IK, 1 ) 

PERFORM  THE  SMOOTHINGS 
DO  130  I 3-1 ,NH 
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75 

80 

85 

90 

95 

100 

105 

110 

115 

120 

130 

135 

C 


310 

500 

C 

C 

136 


330 

140 

145 

150 

155 

160 

165 

170 

175 

180 

185 


195 

C 

C196 

C 

C 

200 

405 

320 

C 


H( 13,2)  - 0. 

Ml  - 13  - M + 1 
M2( 13)  - MAXO ( M 1 , 1 ) 

M3 (13)  - M I NO ((13  + NG  - M),NH) 

K( 13)  - MAXO ( 1 , (2-MI ) ) 

M4  - M2 ( I 3 ) 

M5  - M3 ( I 3 ) 

K 1 - K( 13) 

DO  120  14  - M4,M5 

H ( 13,2)  = H ( 14,1)  * G( K 1 ) + H(I3,2) 

K1  - K1  + 1 

ERRH  - ABS ( ( H ( 13,2)  - H ( I 3 , 1 ) ) *H I ( I 3 ) ) + ERRH 
ERRH  =*  ERRH  * XNH I 

SKIP  SMOOTINGS  AND  PUT  H BACK  IF  REQUESTED 
IF  (NS.NE.O)  GOTO  500 
DO  310  I - 1 , NH 
H( I ,3)  - H( I . 1 ) 

H( I ,2)  = H ( I , 1 ) 

GOTO  320 
I * 1 

TYPE  136,  I,  ERRH 
WRITE(63, 136)  I , ERRH 

FORMAT ( ' ITERATION  ERRH/ F ' / I 5 , 6X , 1PE16 . 6 ) 

I F ( NS . NE . 1 ) GO  TO  140 
DO  330  I -1 ,NH 
H(  I ,3)-H( I ,2) 

GO  TO  320 
DO  200  15  - 2, NS 
ERRH  - 0. 

DO  195  16  - 1 , NH 
H( 16,3)  - H ( 16,2) 

M4  - M2 ( I 6 ) 

M5  - M3 ( I 6 ) 

K 1 - K( 16) 

DO  185  17  - M4,M5 

H( 16,3)  - (H( 17,1)  - H( 17,2) )*G(K1)  + H(I6,3) 
K 1 - K 1 + 1 

ERRH  - ABS ( ( H( 16,3)  - H( I 6 , 2 ) ) *HI ( I 6) ) + ERRH 
H( 16,2)  - H( 16,3) 

CONT I NUE 

ERRH  - ERRH  * XNH I 
DO  196  I - 1 , NH 
H( I ,2)  - H( I ,3) 

1-15 

TYPE  405 , I , ERRH 
WRITE (63, 405)  I , ERRH 
CONT I NUE 

FORMAT ( I 5 , 6X , 1PE16.6) 

CONT I NUE 

IF( ISU.EQ.O)  GO  TO  290 
CALCULATE  INVERSE  FILTERED  F 
DO  201  K2- 1 , NH 
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201  X ( K2 ) -CMPLX ( H( K2 , 3 ) ,0. ) 

K3-NH+1 

DO  202  K4-K3,NFT 

202  X ( K4 ) -CMPLX ( 0 . ,0. ) 

CALL  FFT ( NFT , X , CAPHF , - 1 . ) 

DO  204  K5  - 1 , NFT 

IF  (CAPG(K5) . EQ . CMPLX( 0 . 0 , 0 . 0 ) ) GOTO  203 
CAPHF (K5)  - CAPHF ( K5 ) /CAPG(K5) 

C CAPG(O)  - 1 SO  AREAS  ARE  PRESERVED 

GOTO  204 

203  CAPHF (K5)  - CMPLX( 0 . 0 , 0 . 0 ) 

204  CONT I NUE 

CALL  FFT ( NFT ,CAPHF ,X , +1 . ) 

NFT2-NFT/2 

NIT2-NIT/2 


SUMF-0 

C FIND  WHAT  PERCENTAGES  OF  F ARE  IN  VAR  I OUS  Wl  NDCWS 

DO  340  1-1 , NFT 
FS ( I ) -REAL ( X ( I ) ) 

340  CONT I NUE 

C CLOSE (UN  IT-59) 

C CLOSE (UN  IT-61 ) 

C CLOSE (UN  IT-62) 

IF(NU.EQ.O)  GOTO  290 
C PERFORM  THE  UNFOLDINGS 

C I OUT  AND  I20UT  ARE  OUTPUT  DATA  FILE  NUMBERS 

211  I OUT-22 

I 20UT-38 
I J-1 
I 1-1 

WRITE(2, 1001 ) ( I ,H( I +NHEAD , 3 ) J-1 , NHN ) 

XTEMP- ( 10.01 ) * *25 
XSME ( I LB ) - ( 10 . 01 ) * *25 
215  DO  285  19  - 1 , NU 

220  ERRF  - 0. 

225  DO  280  110-1 , NH 

240  F( I 10)-H( I 10,2) 

245  M4  - M2( I 10) 

250  M5  - M3 ( I 10) 

255  K 1 - K( I 10) 

260  DO  270  111  - M4,M5 

265  F { I 10)  - ( FS ( I 11 )-H( I 11 ,2) )*G(K1 ) + F ( I 10) 

270  K1  - K1  + 1 

275  F ( I 10)  - AMAX1 (F( I 10) ,0. ) 

ERRF  - (ABS(F( I 10)-H( I 10,2) ) *HI ( I 10) )+ERRF 
C POINT  SUCCESS  I VE 

H( I 1 0 , 2 ) -F ( I 10) 

280  CONTINUE 

ERRF  - ERRF  * XNHI 
1-19 

l F ( IST.EQ.O)  GO  TO  282 
c WRITE(2,281 ) (F( I+NIT2) , 1-1 , NHN ) 
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281 


999 


C 

998 

C 


555 


282 


285 

990 


1001 

C 

C290 

290 
666 

291 
C 


665 


659 


C 

C 

658 

660 

C 

300 


FORMAT (G) 

DO  999  J-LGUS+1 , NHN 
GUS ( J ) -0 . 

XMSE-0 . 

DO  998  J-1 , NHN 

TYPE* , F( J+NIT2+4) , GUS ( J ) 

XMSE-XMSE+ ( F ( J+N I T2+4 ) -GUS ( J ) ) * * 2 
TYPE* , ' ' , XMSE , 19 

Dl F -XTEMP -XMSE 
IF(DIF.LE.O. 05) GO  TO  990 
I F ( XTEMP . LE . XMSE ) GO  TO  990 
XTEMP -XMSE 

I l-l 1+1 

IF(NNS.EQ.O)  GO  TO  285 

I F ( 1 . NE . I 10UT ( I J) )GO  TO  285 

IJ-IJ+1 

CONT I NUE 

CONT I NUE 

TYPE* , XTEMP. 19-1 , NS 
XSME ( I L+1 ) -XTEMP 
LOP ( I L+1 )-l 9-1 

I F ( XSME ( I L+ 1 ) . GT . XSME ( I L ) ) GO  TO  291 
FORMAT ( 2X , 13, 10X.G) 

WR I TE ( I 30UT . * ) XTEMP , I 9-1 , NS 

WRITE (3, 1001 ) ( I ,F( I+NIT2+4) ,1-1 , NHN ) 

WRITE (60, 281 ) (XX( I ) ,H( I +NHEAD , 3 ) , 1-1 , NHN) 

GO  TO  666 
CONT I NUE 

TYPE* , XSME ( I L ) , LOP ( I L) , I L-1 , I NO, AVRSNR ,DI F 
WR I TE ( I 40UT , * ) XSME ( IL) , LOP ( IL) , I L-1 , I NO, AVRSNR ,D I F 
I TERAVE ( J I J I ) - I 9- 1 
XMSEAVE ( J I J I ) -XSME ( I L ) 

Jl JI-JI JI+1 
CLOSE ( UN  I T- I 40UT ) 

I 40UT- I 40UT+ 1 
SNRAVRG-ALOG ( AVRSNR ) 

PLO-O 

OLP-O 

DO  659  I AVER- 1 ,N 
P LO-P  LO+ I TERAVE ( I AVER ) 

OLP-OLP+XMSEAVE ( I AVER) 

AVRGI TER-PLO/N 
AVRGMSE-OLP / N 

WR  I TE ( 83 , 658 ) SNRAVRG , AVRG I TER 
WR I TE ( 84 , 658 ) SNRAVRG , AVRGMSE 
FORMAT ( 2G ) 

CONT I NUE 

write(2,281)(f(i+nit2),i-1,nhn) 

RETURN 

END 


ooooooooo 
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SUBROUTINE  FFT ( N . X , Y , S I GN ) 

COMPUTES  FORWARD  OR  INVERSE  FOURIER  TRANSFORM 
FOR  ANY  SET 

OF  DISCRETE  DATA  POINTS. 

N - NUMBER  OF  DATA  POINTS  - POWER  OF  7VO 
SIGN:  -1  FOR  A FORWARD  TRANSFORM  AND  +1  FOR 
AN  INVERSE  TRANSFORM 
X - ORIGINAL  DATA 
Y * FOURIER  TRANSFORM  OF  DATA 
BOTH  X AND  Y ARE  COMPLEX  NUMBERS 
COMPLEX  W, X ( 256 ) ,Y(256) 

INTEGER  R 
C CALCULATIONS 

N2  - N/2 
FLTN  = N 

NSTAGE  - I F I X( ALOG( FLTN ) / ALOG( 2 . ) ) 

PHI2N  = 6.2831 85307179586 /FLTN 
DO  3 J - 1 , NSTAGE 
N2J  - N/(2**J) 

NR  - N2J 

N I - ( 2*  * J ) / 2 

DO  2 I - 1 ,NI 

IN2J  - ( 1 - 1 ) *N2J 

FLIN2J  - IN2J 

TEMP  - FL I N2J*PH I 2N*S I GN 

W-  CMPLX(COS(TEMP) ,SIN(TEMP) ) 

DO  2 R - 1 ,NR 

I  SUB  - R + I N2J 

ISUB1  - R + I N2J*2 

ISUB2  - ISUB1  + N2J 

ISUB3  - I SUB  + N2 

Y(ISUB)  - X ( I SUB 1 ) + W*X  ( I SUB2 ) 

Y ( I SUB3 ) - X { I SUB 1 ) - W*X ( I SUB2 ) 

2 CONT I NUE 

DO  3 R - 1 ,N 

3 X ( R ) - Y ( R ) 

c FACTOR  OF  <1/N)  IN  INVERSE  TRANSFORM 

IF  (SIGN.LT.O. ) GOTO  5 
DO  4 R - 1 ,N 

4 Y(R)  - Y( R ) /FLTN 

5 RETURN 
END 

SUBROUTINE  AMI N I ( k . H . NH , SF . I OUT , JN , JRAN , SNR , QAZ , i truesnr  , 
DIMENSION  H( 1000) ,HP( 1000) ,VAR( 1000) ,Q( 1000) ,QAZ( 10000) 

1 5 FORMAT  ( G ) 

RMS  - 0. 

AMAX  - ABS (H( 1 ) ) 

SD  - SQRT(SF) 

DO  230  I - 1 , NH 
k-0 
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IF  (ABS(H( I ) ) .GT.AMAX)  AMAX  - ABS ( H ( I ) ) 

CALL  GAUSS ( SD , H ( I ) , HP ( I ) , JRAN ) 

RMS  - ( HP ( I ) - H ( I ) ) * * 2 + RMS 
230  CONTINUE 

RMS  - SORT ( RMS/ (NH+1 ) ) 

SNR  - AM [ AAX / RMS 
c type* , snr 

c write(1,15)snr 

c I F ( I TRUESNR . GT . 70 ) DS-20 

I F ( L . EQ . 1 ) go  to  432 
I F ( sn r . GT . ( i truesnr  +DS ))go  to  993 
I F ( snr . LT . ( i t ruesnr-DS ) ) go  to  999 
c WRITE  ( I OUT ,15)  (HP ( I ) , I -1 , NH) 

432  I BG- ( NH*  JN ) - ( NH-1 ) 

IED-NH* JN 
L-1 

DO  888  ICA-IBG, I ED 
QAZ ( I CA ) -HP ( L ) 

888  L-L  + 1 

C type* , snr 

k-1 

999  RETURN 

END 

SUBROUTINE  GAUSS ( S , AM , V , JRAN ) 

A-0.0 

DO  1 1-1,12 
-1  A-A+RAN  ( JRAN  ) 

V- ( A-6 . 0 ) *S+AM 

RETURN 

END 


DECONVOLVED  RESULT 


no  13.00  17.00  21.00  25.00  29.00 


. 00 


NOISY  DRTfl 


17.00  21.00  25.00  29.00 


DECONVOLUTION,  SM= 


17.00  21.00  25.00  29.00  33.00 


DECONVOLVED  RESULT 


333 


o 

o 


I 

I 

I 


I 


00  • 


DECONVOLUTION,  SM= 


17.00  21.00  25.00  29.00  33.00 
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1743.995 

4 

0 

1 

2847.060 

43 

0 

2 

1 540 . 000 

17 

0 

3 

1663.089 

5 

0 

4 

2074.931 

34 

0 

5 

1631.157 

34 

0 

6 

388.2651 

4 

0 

7 

505.9643 

5 

0 

8 

848.4391 

5 

0 

9 

1460.881 

40 

0 

10 

2201 .013 

43 

0 

11 

5420.866 

36 

0 

12 

2820.533 

39 

0 

13 

1661 .254 

27 

0 

14 

3374.110 

38 

0 

15 

463.3286 

37 

0 

16 

1 230 . 634 

30 

0 

17 

1 432 . 795 

40 

0 

18 

1549.869 

34 

0 

19 

1698.961 

29 

0 

20 

1196.156 

35 

0 

21 

2975.729 

35 

0 

22 

1 403 . 766 

34 

0 

23 

1 203 . 040 

4 

0 

24 

917.5787 

31 

0 

25 

795 . 5928 

33 

0 

26 

1129.831 

7 

0 

27 

2007 . 41 4 

33 

0 

28 

1478.216 

6 

0 

29 

3719.944 

41 

0 

30 

1 677 . 385 

33 

0 

31 

1901 .887 

38 
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34 

0.31 561 85E-01 

7.165835 

17 

21 

35 

-0. 9017897E— 01 

6.654451 

26 

32 

36 

0.4995155E-01 

10.44736 

30 

91 

37 

0.3983593E-01 

4.551963 

18 

23 

38 

0.4692888E-01 

8.584443 

22 

31 

39 

0.36941 53 E-01 

4.549679 

24 

33 

40 

0.4815578E— 01 

4.884920 

30 

91 

41 

0.4236841 E-01 

5.036064 

18 

23 

42 

-0. 1490593 E-02 

6.906091 

22 

28 

43 

0.34 15489 E-01 

2.430028 

19 

23 

44 

-0 . 245 1 897E-02 

3.317616 

18 

24 

45 

' -0.387 1679 E-01 

4.467884 

24 

32 

46 

0.4739952E— 01 

2.723176 

21 

31 

47 

0.4259181 E-01 

11.59033 

17 

33 

48 

0. 48766 14E-01 

3.232672 

24 

28 

49 

0.3611898E-01 

4.205908 

18 

25 

50 

0.377941  IE-01 
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2.607276 

19 

25 

1 

0.9457350E-02 

3 . 862724 
4.297771 

29 

19 

50 

24 

2 

3 

0.4994202E-01 
0. 3134251 E-01  5 A 

2.697208 

20 

25 

4 

0.11 671 78E-01 

2.784248 

26 

91 

5 

0. 386571 9E-01 

2.725186 

25 

39 

6 

0 . 49 65329 E— 01 

0.8036318 

19 

24 

7 

0 . 2765483E-01 

0.8429780 

19 

24 

8 

0.4982847E-01 

2.581500 

18 

28 

9 

0.21 8231 7E-01 

6.904471 

18 

30 

10 

0.3530455 E-01 

6.063796 

22 

26 

11 

0 . 4294634E— 01 

7 . 024533 

29 

87 

12 

0.4364443 E-01 

6.510364 

24 

40 

13 

0. 4967928E— 01 

2.413373 

25 

30 

14 

0 . 4103923E— 01 

4.550313 

29 

45 

15 

0.4999781 E-01 

3 . 1 06006 

22 

32 

16 

0 . 4427838E— 01 

1 .953743 

23 

29 

17 

0 . 41 30232 E-01 

2.291960 

26 

34 

18 

0. 4887223E— 01 

2 . 380933 

22 

33 

19 

0 . 4567504E— 01 

2.548991 

24 

31 

20 

0.46562 19 E-01 

3 . 087490 

23 

32 

21 

0.4684091 E-01 

4.052025 

27 

42 

22 

0.4938459 E-01 

1.989641 

25 

38 

23 

0. 4891 670E-01 

2 . 203553 

19 

25 

24 

0. 1946402E-01 

2.613531 

21 

28 

25 

0.4517961 E-01 

1 .746227 

22 

26 

26 

0 . 3398347E— 01 

3.119280 

18 

26 

27 

0. 4321 766E— 01 

3.423219 

24 

31 

28 

0 . 4543233E— 01 

3.067541 

20 

26 

29 

0 . 3380609 E-01 

5.362074 

27 

38 

30 

0. 4907608E— 01 

4.319921 

21 

40 

31 

0. 49531 46E-01 

3.302283 

26 

40 

32 

0. 49851 89E-01 

4.659715 

20 

25 

33 

0. 521 1353E— 02 

4.832435 

25 

97 

34 

0.31 68058E— 01 

3.919983 

18 

23 

35 

-0. 260841 8E-01 

3.662370 

25 

37 

36 

0.4964781 E-01 

5.927515 

29 

48 

37 

0.4992771 E-01 

2.504066 

19 

25 

38 

0.4521 51 3E-01 

4.815331 

23 

31 

39 

0 . 4345369 E— 01 

2.555568 

24 

35 

40 

0 . 4782844E— 01 

2.823952 

29 

49 

41 

0 . 4998708E— 01 

2.786933 

19 

25 

42 

0.1 525402 E-01 

3 . 843440 

23 

29 

43 

0 . 41 76879 E— 01 

1 .346059 

20 

25 

44 

0 . 5472660E-02 

1 .834986 

19 

25 

45 

0. 42381 29E-01 

2.511940 

24 

33 

46 

0. 46861 89E-01 

1 . 566470 

22 

31 

47 

0. 43428 18E-01 

6.400833 

18 

36 

48 

0 . 4865265E— 01 

1 .810999 

24 

30 

49 

0. 402531 6E-01 

2.348811 

19 

27 

50 

0 . 3551078E— 01 

375 


0.9528179 

21 

27 

1 

0 . 422 443 7 E— 01 

1 . 493047 

27 

46 

2 

0 . 4975390E— 01 

1.581721 

21 

27 

3 

0 . 300079 6E— 01  <TLL 

0.9862027 

21 

28 

4 

0 . 4641 724E— 01  - 3 

1 .085425 

25 

47 

5 

0.4969931 E-01 

1.191361 

25 

33 

6 

0 . 4896069E— 01 

0.3446773 

21 

26 

7 

0 . 37031 08E-01 

0.3471086 

21 

26 

8 

0. 48621 33E-01 

0.9923386 

21 

27 

9 

0. 30551 20E-01 

2.570280 

21 

28 

10 

0 . 4022670E— 01 

2.125952 

23 

30 

11 

0 . 3846025E— 01 

2.849287 

28 

37 

12 

0.49661 16E-01 

2.528025 

25 

34 

13 

0 . 4757524E— 01 

0.9216231 

25 

33 

14 

0.4679751 E-01 

1.720314 

27 

47 

15 

0. 499821 9E-01 

1 . 203989 

23 

32 

16 

0 . 4746974E— 01 

0.7261358 

23 

33 

17 

0 . 4532480E— 01 

0.9700875 

25 

34 

18 

0 . 4965395E— 01 

0.9283318 

23 

33 

19 

0.494331  IE-01 

0.9864120 

24 

33 

20 

0.4606247 E-01 

1.111542 

23 

38 

21 

0 . 4926372E-01 

1 . 595460 

26 

38 

22 

0 . 4971 933E— 01 

0.8334672 

25 

35 

23 

0 . 4779720E— 01 

0.8353712 

21 

26 

24 

0 . 4843730E— 01 

0.9674882 

22 

31 

25 

0 . 4492545E— 01 

0.6549036 

22 

30 

26 

0 . 4599762E— 01 

1.155022 

21 

26 

27 

0 . 4655373E— 01 

1 . 269680 

24 

34 

28 

0 . 4895830E— 01 

1.133987 

21 

29 

29 

0 . 4694474E— 01 

1 .998017 

26 

40 

30 

0 . 4945576E— 01 

1 . 735088 

23 

32 

31 

0 . 4712427E— 01 

1.212637 

25 

47 

32 

0 . 4971 325E— 01 

1 . 642700 

21 

29 

33 

0 .3943753E— 01 

1 . 882886 

25 

40 

34 

0 . 4960787E— 01 

1 . 379445 

20 

25 

35 

0.471 741 0E-01 

1 .503767 

25 

32 

36 

0 . 4950786 E— 01 

2 . 1 46844 

27 

101 

37 

0 . 3839374E— 01 

0.9022354 

21 

27 

38 

0.481 3880 E— 01 

1.798716 

24 

32 

39 

0 . 4549527E— 01 

0.9969205 

24 

36 

40 

0 . 4907697E-01 

1 .150492 

27 

45 

41 

0 . 4969084E— 01 

1 . 008775 

21 

27 

42 

0 . 4193372E— 01 

1 . 425299 

24 

31 

43 

0 . 4346454E— 01 

0.5005233 

21 

28 

44 

0 . 46551 88 E— 01 

0.6744756 

21 

27 

45 

0.4691 565E-01 

0.9900661 

24 

33 

46 

0 . 4830879E— 01 

0.6723589 

23 

31 

47 

0.484870 IE-01 

2.413922 

21 

30 

48 

0 . 4035997E— 01 

0.7194581 

24 

32 

49 

0 . 4905677E— 01 

0.9054163 

21 

28 

50 

0. 47773 18E-01 
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0.5739186 

22 

28 

1 

0.4316205E-01 

0.9134799 

0.9487003 

26 

22 

48 

28 

2 

3 

0.49891 17E-01 

0. 3906226E— 01  ? H 

0.5847874 

22 

29 

4 

0.3907871 E-01 

0.7711008 

25 

36 

5 

0 . 4969227E— 01 

0.6854243 

24 

38 

6 

0 . 4973823E— 01 

0 . 2024804 

21 

29 

7 

0 . 3976692E— 01 

0.2357015 

22 

27 

8 

0 . 4170983E— 01 

0.5711311 

21 

30 

9 

0 .3953755E— 01 

1 .469230 

21 

31 

10 

0.46291 35 E-01 

1 .294818 

24 

29 

11 

0. 4905343E— 01 

1 . 658005 

27 

40 

12 

0 . 4981828E— 01 

1 .540181 

25 

34 

13 

0.48061 13E-01 

0.5857002 

25 

34 

14 

0 . 4627490E— 01 

1.022102 

26 

55 

15 

0 . 4990530E— 01 

0.7213948 

23 

34 

16 

0. 4759598E— 01 

0 . 5040377 

24 

31 

17 

0 . 4403606E— 01 

0.7075338 

25 

32 

18 

0 . 4891 652E— 01 

0.6371870 

24 

31 

19 

0.451 1213E-01 

0.6411923 

24 

33 

20 

0.471 6629E-01 

0.8157693 

24 

32 

21 

0 . 4951572E— 01 

1.130117 

26 

33 

22 

0. 497571 2E-01 

0 . 6094967 

25 

33 

23 

0. 496261 7E-01 

0.5100623 

22 

27 

24 

0 . 4078859 E— 01 

0 . 6374987 

23 

30 

25 

0.451 2489E— 01 

0 . 4549548 

23 

29 

26 

0.4659 709 E-01 

0.6979728 

22 

27 

27 

0. 4736537E-01 

0.8351840 

25 

32 

28 

0. 4524672E— 01 

0.7055932 

22 

29 

29 

0 . 4505628E— 01 

1.377695 

26 

34 

30 

0.4942381 E-01 

1 .001077 

23 

35 

31 

0.482552 IE-01 

0 . 8520954 

25 

38 

32 

0 . 4949892E— 01 

0.9741096 

22 

29 

33 

0.4941165E— 01 

1 .188982 

25 

37 

34 

0. 49001 69E-01 

0.7729356 

21 

27 

35 

0.311 781 8E— 01 

0.8439671 

24 

38 

36 

0 . 4954600E-01 

1 . 284367 

26 

91 

37 

0 . 3923988E— 01 

0.5342939 

22 

28 

38 

0. 430601 2E-01 

1 . 084423 

24 

33 

39 

0 . 4891 407E— 01 

0 . 6343260 

24 

36 

40 

0 . 4871 202E— 01 

0.7290098 

26 

46 

41 

0 . 4985744E-01 

0 . 6007808 

22 

28 

42 

0 . 41 28367E— 01 

0 . 8746784 

24 

32 

43 

0 . 4686552E— 01 

0.3067014 

22 

29 

44 

0 . 3979364E— 01 

0.4104702 

22 

28 

45 

0 . 431 9203E— 01 

0 . 6360570 

24 

33 

46 

0.4776371 E-01 

0.4200637 

23 

33 

47 

0 . 4692554E— 01 

1 .440819 

22 

30 

48 

0 . 41 43929E— 01 

0.4659101 

24 

33 

49 

0.4847553 E-01 

0.5914759 

22 

28 

50 

0. 47800 18E-01 

oooooooooooooooooo 
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A Iways 


See  E . 


C 


105 

7 

111 


110 

C 


Convergent  for  Positive  Data  (Wide  Guassian) 


Murphy,  1986  M.S.  Thesis  U.N.O.  For  Documentation. 


FORTRAN  PROGRAM  FOR  DECONVOLUTION  - DCONP . FOR 
GM  TRANSFORM  HAS  LARGEST  ACTUAL  MAGN I TUDE  OF  1 . 

USES  ITERATIVE  TECHNIQUE.  HANDLES  POSITIVE  GOING  DATA 
AUGUST  1984 

READS  DATA  FILE  FOR20.DAT  AND  FOR 21 .DAT 
WRITES  FOR 2 2 . DAT  TO  FOR 3 7 . DAT  AS  STANDARD  OUTPUT 
WRITES  FOR 3 8 . DAT  TO  FOR55.DAT  AS  NON-STANDARD  OUTPUT 
WRITES  FOR 59 . DAT  - FOURIER  DECON , X AND  Y FOR 
PLOTTER,  ORIGINAL  Wl  NDO/V 

WRITES  FOR60.DAT  - LAST  SMOOTHING,  XY  FOR 
PLOTTER,  ORIGINAL  WINDOW 
WRITES  FOR61.DAT  - FOURIER  DECON,  5 
NUMBERS/LIN  FOR  LPT,  2048  PTS 

WRITES  FOR 6 2 .DAT  - FOURIER  DECON,  XY  FOR  PLOTTER, 

2048  PTS 

WRITES  FOR 6 3 . DAT  - I ERRH , I ERRF 

G( I ) - RESPONSE  (APPARATUS)  FUNCTION 

H( I ) -BROADENED  FUNCTION 

DIMENSION  XX (2048) ,H(2081 ,3) ,GS(256) ,HO( 1000) 

DIMENSION  G(  2048 ) ,GNBW(257)  , I 10UT(23)  ,QAZ(  10000) 

COMPLEX  X ( 2048 ) ,GM(257) ,CAPG(2048) ,Z(2048) 

COMMON  X , N I T , NFT , I SU , I ST , NNS , I 10UT , XX , I TTY 
EXTERNAL  FFT 

RESPONSE  AND  BROADENED  FUNCTIONS  ARE  READ  FROM  DATA  FILE 
1-1 

READ(118, 7, END-110)  G( I ) 

FORMAT  ( 2G) 

FORMAT (4G) 

1-1  + 1 
GOTO  105 
NG  - I - 1 
TYPE  71 , NG 
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C TYPE  200,  (G( I ) , I -1 ,NG) 

200  FORMAT  (1  PE  16. 6) 

I - 1 

120  READ( 117, 7, END-125)  HO( I ) 

I - 1+1 
GOTO  120 

125  NHORIG-l-1 

NH  -NHORIG 
C TYPE  71 .NH 

C TYPE  200,  (H( I , 1 ) , 1-1 ,NH) 

NHSV  - NH 

DO  45  I - 1 , NH 

45  XX ( I ) - 1-1 

C DO  666  IR-3,5 

C NS- I R 

C FIRST  MOMENT  CALCULATION 

SUM  - 0. 

DO  20  I - 1 , NG 
GS ( I ) — G ( I ) 

C SUM  - SUM  OF  G 

C SUM2  - FIRST  MOMENT  OF  G 

20  SUM  - SUM+G ( I ) 

C TYPE  122,  SUM 

122  FORMAT  ('  SUM  - ' ,1PE16.6) 

C FIND  FIRST  MOMENT  - FIND  ORIGIN 

SUM2  - 0. 

DO  30  I - 1 , NG 

41  SUM2-SUM2  + I *G( I ) 

30  CONT I NUE 

C TYPE  201 , SUM2 

201  FORMAT  ('  SUM2  - ',1PE16.6) 

42  SUM2-SUM2 / SUM 

C40  ISUM2  - SUM2  +0.5 

C TYPE  43 

043  FORMAT  ( ' USE  SUM2  OR  USER  I NPUT , 1 OR  2?  ' $ ) 

C ACCEPT  71.JSUI 

C GOTO  (46,44) , JSU I 

044  TYPE  50 

050  FORMAT  ( ' ENTER  I NDEX  OF  OR  I G I N 1 $ ) 

C ACCEPT  7,  SUM2 

C NORMAL  I ZE  G 

48  DO  21  1-1 ,NG 

C GS( I )-GS( I ) /SUM 

21  G ( I ) -G ( I ) / SUM 

C PROGRAM  SPECIFICATIONS 

C49  TYPE  1 , % , 

Cl  FORMAT ('  NUMBER  OF  SMOOTHINGS  AND  UNFOLDINGS  (213)  ) 

C ACCEPT*,  NS,  NU 

NU-10 

1 1 FORMAT (213) 


o o o o 
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71 

C 

C72 

C 


80 

C 

C60 

C 


C 

C61 

C 


C 

C62 

C 

C 

C63 

C 

68 

C 

22 


54 


c 

55 

C 

C 

C 


140 


IN  FOURIER  DOMAIN  FOR  INVERSE 


OF  GM,  MAX  - 256 
* NG  IF  POSSIBLE 


NFT-NUM  OF  POINTS 
FILTER  - 2048 

NIT-NO.  OF  PTS . IN  FOUR.  DOM.  FOR  CALC. 

CHOOSE  16,32,64, 128,256  - SHOULD  BE  > 2 
FORMAT ( I ) 

NFT  - 2048 
TYPE  72 

FORMAT ( ' NO.  OF  PTS.  IN  TRANSFORM  FOR  MODIFIED  G-  '*) 

ACCEPT  7 1 , N I T 

NIT-64 

DO  80  l-NH+1 , NFT 
XX( I ) - I - 1 
TYPE  60 

FORMAT ('  ONLY  SMOOTHINGS  0,S  AND  U 1 '$) 

ACCEPT  71 , ISU 
ISU-1 

.EQ.  0)  GOTO  68 
. EQ.  0)  GO  TO  68 


STANDARD 
71 , 1ST 


OUTPUT?  NO-O  '$) 


68 


IF  (ISU 
IF  (NU 
TYPE  61 
FORMAT ( 

ACCEPT 
I ST- 1 
NNS-0 
TYPE  62 

FORMAT ( ' HOV  MANY  NON-STANDARD  OUTPUTS?  ' $ ) 

ACCEPT  7 1 , NNS 
IF(NNS.EQ.O)  GO  TO 
TYPE  63 

FORMAT ( ' TYPE  NON-STANDARD  ITERATIONS,  ONE  PER  LINE  ') 
ACCEPT  71.(1 10UT ( I ) , I - 1 , NNS ) 

CONT I NUE 

TAKE  FFT  OF  G 

DO  22  1-1, NG 

X( I )-CMPLX(G( I ) ,0. ) 

ND-NG+1 

DO  54  l-ND.NFT 
X( I ) -CMPLX ( 0 . ,0. ) 

CALL  FFT ( NFT , X , CAPG , - 1 
wr  i t e ( 2 , 55 ) { I , CAPG ( I ) , 

TYPE  55, (CAPG( I } , 1-1 ,2) 

FORMAT  (3x, I 3, 10x,G, 10X,G) 

PHASE  MULT  TO  GET  CAPG  CORRESPONDING  TO  SMALL 
G IN  RIGHT  ORDER 

USE  SHIFT  THEOREM  TO  PUT  ORIGIN  AT  FIRST  MOMENT 
Y-2*3. 1415926* (SUM2-1 ) /NFT 
N2 1 - ( NFT / 2 ) + 1 
DO  140  1-1 , NFT 

IF  (I.LT.N21)  Z( I ) -CMPLX ( COS ( ( I -1 ) *Y ) , S I N ( ( I -1 ) *Y) ) 

IF  (I  EQ.N21)  Z( I ) -CMPLX ( COS ( (NFT / 2 ) * Y ) ,0. ) 

IF  (I.GT.N21)  Z( I ) -CMPLX (COS ( ( I -NFT-1 ) *Y ) , 

S I N ( ( | -NFT-1 )*Y) ) 

CAPG( I ) -CAPG ( I ) *Z( I ) 


) 

1-1 , NFT) 
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C TYPE  7, ( CAPG ( I ) , I *1 , 2) 

C FIND  FFT  OF  GS 

DO  37  1-1 ,NG 

37  X(  I MCMPLX(GS(  I ) ,0.  ) ) 

DO  655  l-ND,NIT 
655  X( I )«CMPLX(0. ,0. ) 

CALL  FFT(NIT.X,GM,-1 . ) 

C TYPE  7 , CAPG ( 1 ) 

C TYPE  71,  NIT 

TEMP  - CABS ( GM ( 1 ) ) 

DO  23  I - 2, (NIT/2)  +1  . . xx 

23  IF  ( CABS ( GM ( I ) ) . GT . TEMP ) TEMP  - CABS ( GM ( I ) ) 

C TYPE  79 

C79  FORMAT  ('  DO  YOU  WANT  MAG  GM?  Y-1,N-2  '$) 

C ACCEPT  71,MGM 

MGM-1 

DO  24  1-1 ,NIT 
XMAG-CABS ( GM ( I ) ) / TEMP 
GOTO  (81,24) ,MGM 

81  IF  ( I .GT. ( (NIT/2)+1) ) GOTO  24 

C TYPE  200 , XMAG 

C SET  IMAGINARY  GM  TO  ZERO 

24  GM(  I ) -CMP LX ( XMAG, 0.  )M-1)*M  l-D 

C TAKE  INVERSE  FFT  OF  GM 

CALL  FFT (NIT , GM, X , +1 . ) 

DO  25  I - 1 ,NIT 

25  GNBM I ) - REAL(X( I ) ) 

NG  - NIT  + 1 

M - (NIT/2)  + 1 
GNBV(  1 ) - GNBA/(  1 ) / 2 . 

GNEW(  NG)  -GNBA/(  1 ) 

NS- 1 

C DECONVOLUTION  CALCULATION  PERFORMED  IN  SUBROUTINE 

31  CALL  DCON ( NG , NH , NS , M , H , GNBV, CAPG , QAZ , NHOR I G , HO ) 

C CALL  EXIT 

END 
C 

SUBROUT  I NE  DCON ( NG , NH , NS , M , H , G , CAPG , QAZ , NHOR I G , HO ) 
C SMOOTHING  AND  UNFOLDING  SUBROUTINE 

C ALWAYS-CONVERGENT  ITERATIVE  NOISE  REMOVAL  AND 

C DECONVOLUTION 

C NS  - NUMBER  OF  SMOOTHINGS,  >=0 

C NU  - NUMBER  OF  UNFOLDINGS,  >-0 

C M - I OF  THE  PEAK  OF  G(  I ) 

C NH  - NUMBER  OF  POINTS  OF  H 

C NG  - NUMBER  OF  POINTS  OF  G 

DIMENSION  H( 2081 ,3) ,G(257) ,F(2081 ) , 

1 HI (2081 ) ,M2 ( 2081 ) ,XX(2048) ,GUS( 1000) 

DIMENSION  FS ( 2048 ), M3 (2081 ) , K ( 2081 ) , I 10UT(23) , 

1 GO ( 2048 ) , I TERAVE ( 1 000 ) 

DIMENSION  XSME( 1000) ,QAZ( 10000) ,HP( 1000) , 

1 VAR ( 1000) ,Q( 200) ,XMSEAVE( 1000) 
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D I MENS  I ON  LOP ( 1 000 ) , SH ( 1 200 , 1 ) , AN ( 200 ) 

COMPLEX  CAPG( 2048 ) /CAPHF(2048) ,X(2048) 

COMMON  X , N I T , NFT , I SU , 1ST, NNS , I 10UT , XX , I TTY 
1-1 

776  READ( 1 19,281 , END-775 )GUS ( I ) 

1-1+1 

GO  TO  776 
775  LGUS-l-1 

8 NHN-NH 

9 XNH  = FLOAT (NH) 

13  NHEAD  - NG  - M 

14  NTAIL  - M - 1 

15  NHH1  - NHEAD  + NH  + 1 

TYPE*, 'TYPE  IN  THE  FOLLOWING  INFORMATION  IN  ONE  LINE' 
TYPE* ] ' 1 ) HOW  MANY  SNR  CASES  DO  YOU  WISH  ? 

1 TYPE  BEG  IN, END, STEP' 

TYPE*  ' 2)  HOW  MANY  CASES  FOR  EACH  SNR  ?' 

TYPE*,'  3)  NUMBER  OF  SMOOTHING  ITERATIONS  ? 

1 BEG  IN, END' 

TYPE*,'  4)  RESULT  OF  EACH  SNR  CASE  TO  BE 
1 STARTED  AT  ? I 40UT ' 

TYPE*,  ' 5)  MAX  UNFOLDING  ITERATION  ? NU ' 

ACCEPT* , I TRB , I TREN , I TRST , N , I LB , I LE , I 40UT , NU 


DO  660  I TRUESNR- I TRB , I TREN , I TRST 
NH-NHORIG 

C TYPE* , ' N-? ' 

C ACCEPT *,N 

JRAN-888 

CALL  AMIN  I (HO,NH, 1 . ,0, 1 , JRAN , SNR , QAZ ) 
OLDSNR-SNR 

SF- (OLDSNR/ I TRUESNR)* *2 

JRAN-888 
DO  661  JN- 1 , N 

CALL  AMIN  I (HO,NH,SF, IOUT , JN , JRAN , SNR ,QAZ ) 
661  AN ( JN ) -SNR 

P-0. 

DO  333  I A- 1 , N 
333  P-AN ( I A ) +P 

AVRSNR-P / N 
TYPE* , AVRSNR 
J I J I - 1 

DO  665  INC-1,1 
NH-NHOR I G 

I QA» ( I NC*NH ) - ( NH-1 ) 

l\A6-INC*NH 

L-1 

DO  664  IED-IQA,  IWS 
H(L, 1 ) -QAZ ( I ED) 


664 


1001 

16 

17 

18 

19 

20 
21 
22 

23 

24 
55 
60 
C 
65 

67 

68 
69 


654 


653 

C 

70 

75 

80 

85 

90 

95 

100 

105 

110 

115 

120 

130 

135 

C 


310 

500 

C 


L-L+1 

wr i te { 7 , 1 001 ) ( i , h ( i ,1), i « 1 , nhn ) 
f o rma  t ( 2x , i 3 , 1 0x , g ) 

DO  19  IH  - 1 , NH 
I HI  - NHH1  - IH 
IH2  - NH  + 1 - IH 
H( IH1 , 1 ) - H( IH2, 1 ) 

NH  - NH  + NHEAD  + NTAIL 
DO  22  I H3  = 1 , NHEAD 
H( IH3, 1 ) - 0.0 
DO  24  IH4  - NHH1 , NH 
H ( I H4 , 1 ) - 0 . 

XNH I - 1./XNH 
ERRH  - 0. 

HI  - RECIPROCAL  ARRAY  OF  H 
DO  69  13  - 1 , NH 
IF  (H( 13, 1 ) ) 68,67,68 
HI ( I 3)  - 0. 

GOTO  69 

HI ( 13)  - 1 ./H( 13,1) 

CONT I NUE 

DO  654  IK-1 ,NH 
SH( IK, 1 )-H( IK, 1 ) 

DO  666  IL-ILB, ILE 
NS-  I L 

DO  653  IK-1 ,NH 
H(  IK, 1 )-SH( IK,  1 ) 

PERFORM  THE  SMOOTHINGS 
DO  130  13-1 ,NH 
H ( 13,2)  - 0. 

Ml  - 13  - M + 1 
M2( 13)  - MAXO (Ml , 1 ) 

M3 ( 13)  - M I NO ( ( I 3 + NG  - M) , NH) 

K(  13)  - MAXO ( 1 , (2-MI.)  ) 

M4  - M2 ( I 3 ) 

M5  - M3 ( I 3 ) 

K 1 - K( 13) 

DO  120  14  - M4,M5 

H ( 13,2)  - H( 14, 1)  * G( K 1 ) + H( 13,2) 

K 1 - K 1 + 1 

ERRH  - ABS ( ( H ( 13,2)  - H( 13,1)) *H 1(13))  + ERRH 
ERRH  - ERRH  * XNH I 

SKIP  SMOOTINGS  AND  PUT  H BACK  IF  REQUESTED 
IF  (NS.NE.O)  GOTO  500 
DO  310  I - 1 ,NH 
H( I ,3)  - H( I , 1 ) 

H( I ,2)  - H( I , 1 ) 

GOTO  320 
1-1 

TYPE  136,  I , ERRH 


383 


C 

136 


330 

140 

145 

150 

155 

160 

165 

170 

175 

180 

185 


195 

C 

Cl  96 

C 

C 

200 

405 

320 

C 

201 


202 


C 

203 

204 


C 


340 


WRITE(63, 136)  I , ERRH 

FORMAT ( ' ITERATION  ERRH/ F ' / I 5 , 6X , 1PE16 . 6 ) 

I F ( NS . NE . 1 ) GO  TO  140 
DO  330  1-1 , NH 
H( I ,3)-H( I ,2) 

GO  TO  320 
DO  200  15  - 2, NS 
ERRH  - 0. 

DO  195  16  - 1 , NH 
H ( 16,3)  - H( 16,2) 

M4  - M2 ( I 6 ) 

M5  - M3 ( I 6 ) 

K 1 - K( 16) 

DO  185  17  - M4 ,M5 

H ( 16,3)  - (H( 17,1)  - H( 17,2) )*G(K1)  + H(I6,3) 

K1  - K1  + 1 

ERRH  - ABS ( ( H( 16,3)  - H( I 6 , 2 ) ) *HI ( 16) ) + ERRH 
H( 16,2)  - H( 16,3) 

CONT I NUE 

ERRH  - ERRH  * XNHI 
DO  196  I - 1 , NH 
H( I ,2)  - H{ I ,3) 

1-15 

TYPE  405,  I,  ERRH 
WRITE (63, 405)  I , ERRH 
CONT I NUE 

FORMAT ( I 5,6X, 1PE16.6) 

CONT I NUE 

I F ( ISU.EQ.O)  GO  TO  290 
CALCULATE  INVERSE  FILTERED  F 
DO  201  K2- 1 , NH 
X ( K2 ) -CMPLX( H ( K2 , 3 ) ,0. ) 

K3-NH+1 

DO  202  K4-K3 , NFT 
X(K4)-CMPLX(0. ,0. ) 

CALL  FFT ( NFT , X , CAPHF , - 1 . ) 

DO  204  K5  - 1 , NFT 

IF  ( CAPG( K5 ) . EQ.CMPLX( 0 .0,0.0) ) GOTO  203 
CAPHF (K5)  - CAPHF (K5)/CAPG(K5) 

CAPG(O)  - 1 SO  AREAS  ARE  PRESERVED 
GOTO  204 

CAPHF (K5)  - CMP LX ( 0 .0,0.0) 

CONT I NUE 

CALL  FFT (NFT, CAPHF, X, +1 . ) 

NFT2-NFT / 2 
NIT2-NIT/2 
SUMF-0 

FIND  WHAT  PERCENTAGES  OF  F ARE  IN  VAR  I OUS  Wl  NDQA£ 
DO  340  1-1 , NFT 
FS ( I ) -REAL ( X ( I ) ) 

CONT I NUE 


o o 
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IF(NU.EQ.O)  GOTO  290 
PERFORM  THE  UNFOLDINGS 

I OUT  AND  I20UT  ARE  OUTPUT  DATA  FILE  NUMBERS 
211  I OUT* 2 2 

I 2 OUT-38 
I J-1 

1 I-1  4 . u . 

c wr  i te  ( 2 , 1001 ) ( i , h ( i+nheed,3)  , i— 1 ,nhn) 

XTEMP-( 10.01 ) **25 
XSME ( ILB)-( 10.01 )**25 


215 

DO  285  19  - 1 ,NU 

220 

ERRF  - 0. 

225 

DO  280  110  - 1 , NH 

240 

F ( 1 10 ) -H ( 110,2) 

245 

M4  - M2 ( 1 1 0 ) 

250 

M5  - M3 ( 1 1 0 ) 

255 

K 1 - K { 1 10) 

260 

DO  270  111  - M4.M5 

265 

F ( 1 10)  = ( FS ( 1 11  )-H(  111,: 

270 

K 1 - K1+  1 

275 

F( 1 10)  - AMAX1 (F( 1 10) ,0. 
ERRF  - ( ABS ( F ( 1 10)-H( 1 10 

C 

POINT  SUCCESSIVE 
H ( 1 10 , 2 ) =F ( 1 10) 

280 

CONT 1 NUE 

C 

281 


ERRF  - ERRF  * XNH I 
1-19 

I F ( IST.EQ.O)  GO  TO  282 
WR I TE ( I OUT, 281 ) ( F ( I +N I T2 ) , 1-1 ,NHN) 
FORMAT (G) 


DO  999  J-LGUS+1 , NHN 
999  GUS  ( J NO  . 

XMSE-0 . 

DO  998  J-1 .NHN 

C TYPE* ,F( J+NIT2+10) ,GUS( J) 

998  XMSE-XMSE+( F ( J+N I T2+10 ) -GUS ( J ) )**2 

c TYPE* , ' ' , XMSE , I 9, NS, 

CONV-XTEMP-XMSE 

C TYPE* , CONV , XTEMP , XMSE , 19, IL 

I F (XTEMP . LE .XMSE )GO  TO  990 
I F ( CONV . LE  . 0 . 05 ) GO  TO  990 
555  XTEMP -XMSE 

I l-l  1+1 

282  IF(NNS.EQ.O)  GO  TO  285 

IF( I .NE. I 10UT ( 1 J ) )GO  TO  285 

I J-IJ+1 
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285  CONTINUE 

990  CONT I NUE 

C TYPE  * , XTEMP , I 9- 1 , NS 

XSME ( I L+1 ) -XTEMP 
LOP ( I L+1 )- I 9-1 

I F ( XSME  ( I L+ 1 ) . GT . XSME  ( I L ) ) GO  TO  291 

C WRITE( I30UT,*)XTEMP, 19-1 .NS 

c WRITE(3, 1001 ) ( i ,F( I+NIT2+10) ,1-1 ,NHN) 

C290  WRITE (60, 281 ) (XX( I ) ,H( I +NHEAD , 3 ) ,1-1 ,NHN) 

290  GO  TO  666 

666  CONT I NUE 

291  TYPE*, XSME ( IL) ,LOP( IL) , IL-1 , I NC , AVRSNR , CONV 

c WR I TE ( I 40UT , * ) XSME ( IL) ,LOP( IL) , IL-1 , I NC, AVRSNR, CONV 

I TERAVE ( J I J I ) - 1 9- 1 
XMSEAVE ( J I J I ) -XSME ( I L ) 

665  JIJI-JIJI+1 

CLOSE ( UN  I T- I 40UT ) 

I 40UT- I 40UT+ 1 
SNRAVRG-ALOG ( AVRSNR ) 

PLO-O 

OLP-O 

DO  659  I AVER- 1 ,N 
PLO-PLO+ I TERAVE ( I AVER) 

659  OLP-OLP+XMSEAVE ( I AVER) 

AVRG I TER-PLO/ N 
AVRGMSE-OLP / N 

C WR I TE ( 1 1 5 , 658 ) SNRAVRG , AVRG I TER 

c WR I TE ( 1 16, 658) SNRAVRG, AVRGMSE 

658  FORMAT (2G) 

660  CONT I NUE 

wr  i te(2, 1001 ) ( i ,h( i+nhead,3) , i-1 ,nhn) 
wr  i te ( 3 , 1001 ) ( i , f ( i +n i t2+l0) , i-1 ,nhn) 

300  RETURN 

END 
C 

SUBROUTINE  FFT { N ,X , Y , S I GN ) 

C COMPUTES  FORWARD  OR  INVERSE  FOURIER  TRANSFORM 

C FOR  ANY  SET 

C OF  DISCRETE  DATA  POINTS. 

C N - NUMBER  OF  DATA  POINTS  - PO/VER  OF  TWD 

C SIGN:  -1  FOR  A FORWARD  TRANSFORM  AND  +1  FOR 

C AN  INVERSE  TRANSFORM 

C X - ORIGINAL  DATA 

C Y - FOURIER  TRANSFORM  OF  DATA 

C BOTH  X AND  Y ARE  COMPLEX  NUMBERS 

COMPLEX  W, X ( 256 ) ,Y(256) 

INTEGER  R 

C CALCULATIONS 

N2  - N/2 
FLTN  - N 

NSTAGE  = I F I X( ALOG( FLTN ) / ALOG( 2 . ) ) 


co  o m 
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PHI2N  - 6 . 283185307 1 79586 /FLTN 
DO  3 J - 1 , NSTAGE 
N2J  - N/(2**J) 

NR  - N2J 

N I = ( 2*  * J ) / 2 

DO  2 I - 1 ,NI 

IN2J  - ( 1-1 )*N2J 

FLIN2J  - IN2J 

TEMP  - FL I N2 J*PH I 2N*S I GN 

W - CMP  LX ( COS ( TEMP ) , S I N ( TEMP ) ) 

DO  2 R - 1 ,NR 

I SUB  - R + IN2J 

ISUB1  - R + I N2 J*2 

ISUB2  - ISUB1  + N2J 

ISUB3  - I SUB  + N2 

Y(ISUB)  - X(ISUBI)  + W*X( I SUB2 ) 

Y ( I SUB3 ) -X(ISUBI)  - W*X ( I SUB2 ) 

2 CONT I NUE 

DO  3 R - 1 ,N 
X ( R ) - Y(R ) 

FACTOR  OF  (1/N)  IN  INVERSE  TRANSFORM 
IF  ( S I GN . LT . 0 . ) GOTO  5 
DO  4 R - 1 ,N 
Y(R)  - Y( R ) /FLTN 
RETURN 
END 

SUBROUTINE  AMINI ( H , NH , SF , I OUT , JN , JRAN , SNR , QAZ ) 

DIMENSION  H ( 1 000 ) ,HP(1000) ,VAR(1000) ,Q(1000) ,QAZ( 10000) 
15  FORMAT  (G) 

RMS  - 0. 

AMAX  - ABS ( H ( 1 ) ) 

SD  - SQRT(SF) 

DO  230  I - 1 , NH 

I F ( ABS ( H ( I ) ) . GT . AMAX ) AMAX  - ABS ( H ( I ) ) 

CALL  GAUSS ( SD , H ( I ) , HP ( I ) , JRAN ) 

RMS  - ( HP ( I ) - H( I ) )**2  + RMS 
230  CONT I NUE 

RMS  - SORT ( RMS / ( NH+ 1 ) ) 

SNR  - AMAX /RMS 

C WRITE  ( I OUT ,15)  (HP( I ) . 1-1 ,NH) 

I BG- ( NH*  JN ) - ( NH- 1 ) 

IED-NH* JN 
L—  1 

DO  888  ICA-IBG, I ED 
QAZ( ICA)-HP(L) 

888  L-L+1 

RETURN 
END 
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SUBROUTINE  GAUSS (S , AM, V , JRAN ) 
A-0.0 

DO  1 1-1,12 
A-A+RAN ( JRAN ) 

V- ( A-6 . 0 ) *S+AM 

RETURN 

END 


SMOOTHED 
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0.531 61 62E-01 

1175.728 

1265 

65 

41 
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1505.027 

344 

0 

31 

-0.2316895 

209 . 7995 

696 

0 

32 

-0. 38681 03E-01 

1803.494 

297 

0 

33 

-0.5301514 

176.9231 

341 

0 

34 

0. 126800SE-01 

4205.804 

721 

0 

35 

-0. 1513672E-01 

5037.382 

203 

0 

36 

— 0. 8740234E— 01 

434.2062 

219 

0 

37 

0 . 3610229E— 01 

1 48 . 4209 

630 

0 

38 

0.4301 453E— 01 

151 .0170 

209 

0 

39 

0.11 73401 E-01 

168.9248 

338 

0 

40 

-0 . 7781 982E— 02 

2751 .090 

475 

0 

41 

-0 . 781 2500E— 02 

980.9355 

626 

0 

42 

0 . 4858398E— 01 

1192.121 

379 

0 

43 

—0 . 5456543E— 0 1 

212.7056 

655 

0 

44 

0.4867554E-01 

355.8380 

1082 

0 

45 

0.2587891 E-01 

2665.146 

379 

0 

46 

-0 . 1 489258E-01 

101 .7244 

300 

0 

47 

—0. 2376556 E— 01 

3990.899 

328 

0 

48 

-0.3525391 

8831 .945 

174 

0 

49 

-0.4824219 

6703.302 

95 

0 

50 

-2.098145 
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0 

0 

1 

2 

0 

3 

-0.5 102539 E-01 

0 

4 

-0. 82031 25E-01 

0 

5 

-0 . 2304077E-01 

0 

6 

0.3515625E-01 

0 

7 

0.4803467E-01 

0 

8 

-0.8312225E-01 

0 

9 

0.4409790E— 01 

0 

10 

-0.2486115 

0 

11 

0.95214S4E-7-02 

0 

12 

-0.1352463 

0 

13 

0 . 8255005E-02 

0 

14 

0 . 4948425E-01 

0 

15 

-1 . 088379 

0 

16 

-0.2006836 

0 

17 

-0.1369629 

0 

18 

0.4125977E— 01 

0 

19 

0. 30670 17E-01 

0 

20 

0.4943848E-01 

0 

21 

-0.2932739 

0 

22 

-0.5371 09 4E-01 

0 

23 

-0.1136780 

0 

24 

0.3869629E-01 

0 

25 

0 . 3295898E— 01 

0 

26 

-0 . 3549805 

0 

27 

0.3820801 E-01 

0 

28 

-0.6079102E— 01 

0 

29 

-0. 1062012 

0 

30 

-0.2413788 

0 

31 

-0 . 4248047E— 01 

0 

32 

0.3173828E-01 

0 

33 

-0 . 1 835938 

0 

34 

— 0 . 341 7969E— 02 

0 

35 

-0 . 5029297 

0 

36 

-0 . 8974609 

0 

37 

—0 . 7373047E— 01 

0 

38 

0 . 2769470E— 01 

0 

39 

—0. 1031494E— 01 

0 

40 

0. 1519775E— 01 

0 

41 

0 . 4565430E— 01 

0 

42 

-0 . 1 464844E-01 

0 

43 

0.2996826E— 01 

0 

44 

0.3961 182E-01 

0 

45 

0.3848267E— 01 

0 

46 

0 . 4589844E-01 

0 

47 

0.2960968E-01 

0 

48 

-0.1450195 

0 

49 

-0.5371094E— 01 

0 

50 

-1.728027 
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5437.322 

199 

0 

1 

1241 .763 

636 

0 

2 

899.3762 

724 

0 

3 

4357.390 

281 

0 

4 

423.6870 

785 

0 

5 

678.3036 

892 

0 

6 

210.0582 

671 

0 

7 

92.83072 

331 

0 

8 

104.3342 

406 

0 

9 

210.9229 

247 

0 

10 

384.0494 

1711 

0 

11 

74.43938 

203 

0 

12 

158.1701 

762 

0 

13 

117.8880 

584 

0 

14 

3050.605 

321 

0 

15 

3143.759 

302 

0 

16 

2359.035 

416 

0 

17 

2466.532 

724 

0 

18 

271.8938 

987 

0 

19 

1168.431 

913 

0 

20 

281 .0707 

286 

0 

21 

8204.594 

315 

0 

22 

405.5789 

633 

0 

23 

559.8490 

1466 

0 

24 

2315.374 

1116 

0 

25 

1130.793 

933 

0 

26 

827.7775 

922 

0 

27 

3066.774 

163 

0 

28 

672.9080 

557 

0 

29 

145.0175 

267 

0 

30 

1260.972 

489 

0 

31 

193.5134 

679 

0 

32 

1382.854 

349 

0 

33 

151.9236 

366 

0 

34 

5245.367 

182 

0 

35 

3426 . 643 

502 

0 

36 

355.9297 

247 

0 

37 

140.2664 

668 

0 

38 

125.3397 

219 

0 

39 

185.3812 

320 

0 

40 

2092.369 

562 

0 

41 

705.3862 

690 

0 

42 

869.4293 

430 

0 

43 

196.9959 

651 

0 

44 

271 .9697 

1096 

0 

45 

1982.350 

448 

0 

46 

96.93374 

319 

0 

47 

3047.676 

368 

0 

48 

7216.985 

298 

0 

49 

6367.529 

113 

0 

50 

-0.31 25000E-01 

-0.3173828E-02  C aJ  \ 2 ? 

-0.1320190  J ' 0 * 

-0 . 2685547E-01 
— 0.451 3550E-01 
0.4278564E— 01 
0.1 23901 4E-01 
0.223541 3 E-02 
0.3610992E— 01 
—0 . 3764343E-01 
0.3753662E— 01 

0 . 1 744843E— 01  - - 

0.566101  IE-02 
0.2955627E— 01 
-0.3803711 
-0.7756348 
-0.3078613 
-0 . 8496094E-01 
0.3103638E-01 
-0.1904297E-01 
-0.3457642 
-0.1494141 
0 . 1 800537E-01 
0.2648926E-01 
0 . 3442383E-01 
-0.2344971 
0.3649902E-01 
0 . 4003906E— 01 
-0. 8404541 E-01 
-0.200653 IE-01 
-0.4227295 
0.401 1536E-01 
-0.2913818 

0 . 2246094E— 01 

-0 . 2543945 
-0.3447266 
0.3619385E— 01 
0.2233887E— 01 
-0 . 8588409E— 01 
0.32 10449 E-01 
-0.1093750 
-0.2589111 
-0 . 6683350E-01 
0.4045105E— 01 
0.4821777E— 01 
-0 . 4345703E-01 
0 . 4560089E— 01 
-0 . 2880859E— 01 
-0.1225586 
-1.529297 
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5003.825 

287 

1146.772 

621 

739.0062 

801 

3715.315 

296 

453.0964 

713 

615.3016 

826 

163.2728 

837 

69 . 88459 

348 

100.6730 

419 

195.6712 

259 

382.5636  . 

1461 . . 

70.47127 

213 

317.3933 

528 

116.7464 

580 

2880.073 

345 

2368.094 

367 

2120.817 

439 

2172.856 

779 

232.6406 

987 

1012.245 

922 

297.0164 

298 

6081.109 

967 

368.2046 

551 

499.5285 

1413 

2143.960 

983 

1207.155 

747 

753.9807 

914 

2870.083 

203 

684.6075 

587 

117.1880 

280 

922.1492 

503 

172.5676 

789 

1257.983 

342 

147.7612 

358 

4872.777 

194 

3721.160 

253 

325.1910 

262 

134.7065 

680 

120.8177 

229 

170.5905 

335 

1854.753 

577 

628.6064 

729 

772.5860 

427 

190.3668 

666 

249 . 5860 

1053 

1570.133 

657 

91.13358 

332 

2755.628 

400 

5931.199 

552 

6006 . 536 

126 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


1 -0.4086914 

2 0.817871  IE-02 

3 0.1135254E-01  r . p _ . ^ 

4 -0.2475586  ? M - 1 H ^ 

5 0 . 3460693E— 01 

6 0. 4241 943 E— 01 

7 0 . 4386902E— 01 

8 -0.1 634979 E-01 

9 0.2519989E— 01 

10  -0.2674103 

11  0 . 194702J£^-04- 

12  0 . 2744293E— 01 

13  -0 . 3024292E— 01 

14  0 . 89 64539 E— 02 

15  -0 . 3100586E— 01 

16  -0.2064395 

17  -0.1228027 

18  -0.2133789 

19  0. 354461 7E-01 

20  0. 4992676E— 01 

21  -0.2983093 

22  0.3417969E— 01 

23  0. 2261353E-01 

24  0 . 451 3550E— 01 

25  0. 263671 9E-01 

26  -0.3725586 

27  0 . 41 13770E— 01 

28  -0 . 4907227E-01 

29  -0.1 589355 

30  0. 365371 7E-01 

31  -0.2675781 

32  0 . 6835938E-02 

33  -0.2126465 

34  0. 1084900E-01 

35  -0 . 5859375E— 02 

36  -0. 1123047E-01 

37  -0.2966919 

38  0. 440521 2E-01 

39  -0. 38101 20E-01 

40  -0 . 281 5247E— 01 

41  0. 418701 2E— 01 

42  0. 34973 14E-01 

43  0.391 8457E-01 

44  0.1 7501 83E-01 

45  0. 4966736E— 01 

46  -0 . 7690430E— 02 

47  0 . 1 509094E— 01 

48  -0.3911133 

49  0 . 8789063E— 02 

50  -1.646484 
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APPENDIX  D 


PHAES  SHIFT  MIGRATION  PROGRAM 


C DELTA  X-4  METER, DELTA  T-4mSEC 

COMPLEX  CP (256, 64)  , X IMAGE (256, 66)  ,CV\ORK(64)  ,TEM(64) 
COMPLEX  ZKZ( 256 , 64) ,CC,F ,U(256,64) ,HK(256) 

D I MENS  I ON  H ( 256 ) , C ( 256 , 64 ) 

REAL  DT , DX , V , P I , XKX  ,W,  TA , B , D I V , SKX 

NT-256 

NX-64 

DT-0.004 

DX-4 . 

PI-3. 14159265 
V-1000. 

DO  5 1-1 , NT 
DO  5 J- 1 , NX 
CP( I , J)-0. 

5 ZKZ ( I , J ) -0 . 

C CP ( 32 , 32 ) - ( 1 . , 0 . ) 

DO  270  1-1, NX 
DO  270  J-1 , NT 
270  READ( 101 , * )CP( J, I ) 


CALL  FT2D( NT , NX , CP , 1 . , -1  • , OAORK ) 
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DO  998  ITAU-1 .NT 

DO  212  1-1 .NT 
DO  212  J-1 , NX 
212  U( I , J)-CP( I ,J) 

TA-ITAU*DT 

DO  333  IKX-1 .NX 

XKX- ( ( 2 . *P I * ( IKX-1 ))/(NX*DX)) 

I F( IKX.GT.NX/2)  XKX- ( 2 . *PI /DX-XKX) 

SKX«XKX*XKX 
X I MAGE ( ITAU, IKX)-0. 

DO  444  I W.  1 . NT 

W-( (2. *PI *(  IW-1 ) ) / ( NT*DT ) ) 

I F(  IW.GT.NT/2)  WU(2.*PI /DT-W) 

I F ( I TAU . GT . 1 ) GO  TO  111 

DIV-  (W/V ) * *2 

IF(DIV.LT.SKX)  GO  TO  444 

B-SQRT ( D I V-SKX ) 

ZKZ ( IW,  I KX)- ( 0 . , -1 . ) *B*V 

111  I F ( ZKZ ( IW.  I KX ) . EQ . 0 ) GO  TO  444 

CC-CEXP ( ZKZ ( IW,  I KX ) *TA ) 

U(  IW,  I KX ) -U ( IW.  I KX ) *CC 

X IMAGE ( ITAU, IKX)-XIMAGE(  ITAU, IKX)+U(  IW,  IKX) 

444  CONT I NUE 

333  CONT I NUE 

DO  995  J-1 .NX 

995  TEM( J) -XI  MAGE ( ITAU, J) 

CALL  FORK ( NX , TEM , 1 . ) 

DO  994  1-1 , NX 

994  XIMAGE( ITAU, I )-TEM( I ) 

998  TYPE*, ITAU 

XMAX-REAL ( X I MAGE ( 1,1)) 

WRITE( 104,2) ( (REAL (X  IMAGE ( I , J ) ) , I - 1 , NT ) , J-1 , NX ) 
DO  667  1-1 , NT 
DO  666  J-1 , NX 


C( I , J ) -REAL ( X I MAGE ( I , J) ) 

T -REAL ( X I MAGE ( I , J) ) 

IF(XMAX.LT.T)  XMAX-T 

666  CONT I NUE 

667  CONT I NUE 

TYPE* , XMAX 
WRITE (105,*)  XMAX 

DO  631  1-1 , NT 
DO  631  J-1 , NX 

631  C ( I , J ) -C ( I , J ) / XMAX 

DO  659  1-1 , NX 
DO  658  J-1 , NT, 8 

WRITE( 106,3)C( J, I ) ,C( J+1 , I ) ,C( J+2, I ) , 

1  C( J+3, I ) ,C( J+4, I ) ,C( J+5, I ) , 

1 C( J+6 , I ) ,C( J+7 , I ) 

2 FORMAT (G) 

3 FORMAT ( 8 ( F 1 0 . 7 ) ) 

658  CONT I NUE 

659  CONT I NUE 

364  END 

SUBROUTINE  FT2D ( N 1 , N2 , CP , S I GN 1 , S I GN2 , QAORK ) 
COMPLEX  CP(N1 ,N2) ,OAORK(N2) 

INTEGER  N 1 , N2 
REAL  SIGN1.SIGN2 
DO  1 1 I 2-1 ,N2 

11  CALL  FORK(N1 ,CP( 1 , 12) ,SIGN1 ) 

DO  22  I 1-1 , N 1 
DO  23  I 2-1 ,N2 

23  OAORK ( I 2 ) -CP ( I 1 , I 2 ) 

CALL  FORK (N2, OAORK, S I GN2) 

DO  24  I 2-1 ,N2 

24  CP ( I 1 , I 2 ) -CAORK (12) 

22  CONT I NUE 

RETURN 

END 

SUBROUT  I NE  FORK ( LX , CX , S I GN I ) 

COMPLEX  CARG , QA/,  CEXP  , CTEMP  , CX  ( LX ) 

J-1 

SC-SQRT ( 1 . /LX) 

DO  30  1-1, LX 
IF( I .GT. J)  GO  TO  10 
CTEMP -CX ( J ) * SC 
CX(J)-CX( I )*SC 
CX( I ) -CTEMP 
10  M-LX/2 

20  IF(J.LE.M)GO  TO  30 
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J-J-M 

M-M/2 

I F ( M . GT . 1 ) GO  TO  20 
30  J-J+M 

L-1 

40  I STEP-2* L 

DO  50  M-1,L  , . . 

CARG- ( 0 . . 1.)*(3.14159265*SIGNIMM-1))/L 
OAMDEXP(CARG) 

DO  50  I -M , LX , I STEP 
CTEMP -Q/V* CX  ( l+L) 

CX( I +L )«CX( I ) -CTEMP 
50  CX ( I ) -CX ( I ) +CTEMP 

L- I STEP 

IF(L.LT.LX)  GO  TO  40 

RETURN 

END 


PHASE  SHIFT  MODELING  PROGRAM 


C DELTA  X-4  METER, DELTA  T-4mSEC 

COMPLEX  CP ( 256 , 64 ) , X I MAGE ( 256 , 64 ) , OORK ( 64) ,TEM(64) 
COMPLEX  ZKZ ( 256 , 64 ) , U ( 256 , 64 ) 

COMPLEX  CC , F 
DIMENSION  C( 256 ,64) 

REAL  DT , DX , V , P I , XKX  ,W,  TA , B , D I V , SKX 

NT-256 

NX-64 

DT-0 . 004 

DX-4 . 

DZ-4 . 

PI-3.4159265 

V-1000. 

VTC-V* 0.001 

DO  5 1-1 , NT 
DO  5 J-1 , NX 
XI  MAGE ( I , J ) -0 . 

U( I , J)-0. 

5 ZKZ( I , J ) -0 . 

X I MAGE ( 32 , 32 ) - ( 1 . ,0. ) 

2 FORMAT ( G ) 


6 - i°*- 


WRITE! 100,2) ( (REAL(X IMAGE! I , J)  ) , 1-1 ,NT) , J-1 ,NX) 

DO  125  K-1 , NT 
DO  123  J-1 , NX 

123  TEM ( J ) -X I MAGE ( K , J ) 

CALL  FORK ( NX , TEM , - 1 . ) 

DO  124  1-1 . NX 

124  X IMAGE! K, I )-TEM( I ) 

125  CONTINUE 

DO  555  IZ-1.NT 

DO  444  IW- 1 , NT 

WL(  ( 2 . *P  I * ( IW-1  ) ) / (NT*DT)  ) 

IF!  IW.GT.NT/2)  W-- 1 . * (2  . *P  I /DT-W) 

DO  333  I KX-1 , NX 

XKX- ( ( 2 . *P I * ( I KX-1 ) ) / ( NX*DX) ) 

IF! IKX.GT.NX/2)  XKX— 1 . * ( 2 . * P I / DX-XKX ) 
SKX-XKX*XKX 

I F ( ABS ( XKX ) . GT . ABS  (W/ V ) ) GO  TO  333 

120  IF(DZ.GT.VTC)  GO  TO  129 

ZOVTC2- (DZ/VTC) * *2 

126  S I NE-SQRT ( 1 . -ZOVTC2 ) 

127  I F ( ABS (V* XKX) .GT .ABS (W*S I NE ) ) GOTO  129 

128  APR-1. 

GO  TO  131 

129  APR-0. 

IF! IZ.GT. 1 ) GO  TO  130 

131  Dl V-  (W/V) **2 

B-SQRT ( D I V-SKX ) 

ZKZ!  IW,  I KX) - ( 0 . , 1 . )*B 

130  I F ( ZKZ ( IW,  I KX ) . EQ . 0 ) GO  TO  333 
CC-CEXP ( ZKZ ( IW,  I KX ) *DZ ) 

U(  IW,  I KX)-U(  IW,  I KX ) *CC+APR  * X I MAGE ( NT+ 1 - I Z , IKX) 

333  CONTINUE 

444  CONT I NUE 

555  TYPE*, I Z 

CALL  FT2D ( NT , NX , U , - 1 . ,1 . , QAORK ) 

WR I TE ( 1 0 1 , 2 ) ( ( REAL ( U ( I , J ) ) , I - 1 , NT ) , J- 1 , NX ) 
XMAX-REAL (U( 1 , 1 ) ) 

DO  667  1-1 , NT 
DO  666  J-1 , NX 
C( I , J)=REAL(U( I , J) ) 


666 

667 


999 


3 

658 

659 

364 


11 


23 


24 

22 


10 

20 


T-REAL (U( I , J) ) 
IF(XMAX.LT.T)  XMAX-T 
CONT I NUE 
CONT I NUE 

TYPE* ( XMAX 
WRITE (102,*)  XMAX 

DO  999  1=1 , NT 
DO  999  J=1  , NT 
C( I , J ) =C( I , J)/XMAX 


DO  659  1=1 , NX 
DO  658  J=1 , NT , 8 

WRITE ( 103,3)C( J , I ) ,C( J+1 , I ) ,C( J+2, I ) , 

C( J+3 , I ) , C ( J+4 , I ) , C( J+5 , I ) , 

C( J+6, I ) ,C( J+7 , I ) 

FORMAT ( 8 ( F 1 0 . 7 ) ) 

CONT I NUE 
CONT I NUE 

END 

SUBROUTINE  FT2D(N1 ,N2,CP,SIGN1 , S I GN2 , QAORK ) 
COMPLEX  CP(N1 ,N2) , QAORK  (N2) 

INTEGER  N1,N2 
REAL  SIGN1 , S I GN2 
DO  11  12=1 ,N2 

CALL  FORK ( N 1 , CP ( 1 , I 2 ) , S I GN 1 ) 

DO  22  I 1 = 1 , N 1 
DO  23  I 2=1 ,N2 
QAORK (12) =CP (11,12) 

CALL  FORK ( N2 , OAORK , S I GN2 ) 

DO  24  12=1 ,N2 

CP ( I 1 , I 2 ) -OAORK (12) 

CONT I NUE 

RETURN 

END 

SUBROUT  I NE  FORK ( LX , CX , S I GN I ) 

COMPLEX  CARG , QA/,  CEXP  , CTEMP  , CX  ( LX ) 

J=1 

SC-SQRT ( 1 . / LX ) 

DO  30  1=1 , LX 
I F ( I .GT. J)  GO  TO  10 
CTEMP =CX( J ) *SC 
CX( J)=CX( I ) *SC 
CX( I ) -CTEMP 
M-LX/2 

IF(J.LE.M)GO  TO  30 
J-J-M 
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M-M/2 

I F ( M . GT . 1 ) GO  TO  20 
30  J-J+M 

L-1 

40  I STEP-2*  L 

DO  50  M-1,L  , 

CARG- ( 0 . , 1 . ) * ( 3 . 141 59265* S I GN I * (M-1 ) ) /L 
CW-CEXP(CARG) 

DO  50  l-M,LX,  I STEP 
CTEMP-OV*CX  ( l+L) 

CX( l+L)-CX( I ) -CTEMP 
50  CX( I )«CX( I )+CTEMP 

•L- I STEP 

IF(L.LT.LX)  GO  TO  40 

RETURN 

END 


STOLT  OR  F-K  MIGRATION  PROGRAM  Wl  TH  LINEAR  INTERPOLATION 


COMPLEX  CP (256 ,64) 

DIMENSION  C( 256 , 64) 

C NX  IS  COLOUMN  AND  NT  RON 

NX-64 
NT-256 
VDTODX-1 . /4. 

DO  999  1-1, NT 
DO  999  J-1 ,NX 
999  CP ( I , J ) -0 . 

C CP(32,33)-1 . 

C CP ( 32 , 9 ) -1 . 

C CP ( 64 , 1 7 ) - 1 . 

CP( 128, 33)- ( 1 . ,0. ) 

C WR I TE( 102,991 ) ( ( REAL (CP ( I , J ) ) , I -1 , NT ) , J-1 , NX) 

991  FORMAT  (G) 

CALL  STOLT ( NT , NX , CP , VDTODX ) 
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XMAX-REAL ( CP ( 1 , 1 ) ) 

DO  11  1-1 , NT 
DO  11  J- 1 , NX 
T-REAL (CP ( I , J) ) 

C( I . J)-T 

11  IF(XMAX.LT.T)  XMAX-T 

TYPE* , ' XMAX- ' , XMAX 


12 

13 

14 


887 


500 


886 

888 


DO  14  1-1 , NX 

DO  13  J-1 ,NT,8  4 ^ 

WRITE( 104, 12)C( J , I ) ,C( J+1,l ) ,C( J+2, I ) ,C( J+3, I 
C( J+4, I ) , C( J+5 , I ) , C( J+6 , I ) ,C( J+7 , I ) 

FORMAT ( 8 ( F 1 0 . 7 ) ) 

CONT I NUE 
CONT I NUE 
END 


SUBROUTINE  STOLT ( NT . NX ,CP . VDTODX) 

COMPLEX  CP (NT, NX) ,CBF( 10000) 

I NTEGER  I KX , NX , NT , NTH , I KTAU , I OM 

REAL  OM , VKX  ,WL  ,WH , AKTAU .PI  .PI ONTH , VDTODX 

PI -3. 14149265 

NTH-NT/2 

P IONTH-P I /NTH 

CALL  FT2D( NT , NX , CP , 1 . , -1 . , CBF ) 

DO  888  I KX- 1 , NX 
VKX- ( ( I KX- 1 ) *2. *PI ‘VDTODX) /NX 
I F ( I KX . GT . NX/ 2 ) VKX-2 . *P I ‘VDTODX- VKX 
CBF ( 1 ) -0 . 

CBF ( NT+ 1 ) -0 . 

DO  887  I OM- 1 , NT 
CBF ( I OM ) -CP ( I OM , I KX ) 

CP( 1 , IKX)-0. 

DO  886  I KTAU-2 , NTH+1 
AKTAU- ( I KTAU- 1 . 0 1 ) * P I ONTH 
OM-SQRT ( AKTAU* AKTAU+VKX* VKX ) 

I OM- 1 +OM / P I ONTH 
I F ( I OM . LT . NTH ) GOTO  500 
CP ( I KTAU , I KX ) -0 . 

GOTO  886 

WL- IOM-OM/P I ONTH 
WH-1 .-WL 


CP(  I KTAU,  I KX ) -WL  *CBF  ( IOM)+VW*CBF  ( IOM+1  ) 

CP  ( NT-  I KTAU+2  , I KX ) -WL  *CBF  ( NT-  I OM+2  ) +VWI*CBF  ( NT-  I OM+ 1 ) 
CONT I NUE 
CONT I NUE 

CALL  FT2D ( NT , NX , CP , - 1 . ,1 . , CBF ) 

RETURN 

END 
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SUBROUTINE  FT2D(N1  , N2,CP,SIGN1  , S I GN2  , Q/'ORK ) 
COMPLEX  CP(N1 ,N2) ,O^ORK(N2) 

INTEGER  N1 , N2 
REAL  SIGN1 , S I GN2 
DO  1 1 12-1 , N2 

11  CALL  FORK(N1 ,CP(1, 12) ,SIGN1) 

DO  22  I 1-1 , N 1 
DO  23  12-1 , N2 

23  O/VORK  (12)  -CP  (11,12) 

CALL  FORK ( N2 , QAORK , S I GN2 ) 

DO  24  12-1 , N2 

24  CP (11,12) -QAORK (12) 

22  CONT I NUE 

RETURN 

END 

SUBROUT  I NE  FORK ( LX , CX , S I GN I ) 

COMPLEX  CARG , CW, CEXP , CTEMP , CX ( LX ) 

J-1 

SC- SORT ( 1 . / LX ) 

DO  30  1-1 , LX 
IF( I .GT. J)  GO  TO  10 
CTEMP -CX ( J ) * SC 
CX( J)-CX( I )*SC 
CX( I ) -CTEMP 
10  M-LX/2 

20  IF(J.LE.M)GO  TO  30 

J-J-M 
M-M/2 

I F ( M . GT  . 1 )GO  TO  20 
30  J-J+M 

L-1 

40  I STEP-2*L 

DO  50  M- 1 , L 

CARG-  ( 0 . , 1 . )M3. 14159265*SIGNI*(M-1 ) )/L 

QA/UCEXP ( CARG ) 

DO  50  I -M , LX , I STEP 
CTEMP -Q/V*CX(  l+L) 

CX( I +L )-CX( I ) -CTEMP 
50  CX(  I )-CX(  I )+CTEMP 

L- I STEP 

IF(L.LT.LX)  GO  TO  40 

RETURN 

END 
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